Ｐａｇｅ 690 ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ 通常モードに戻る ┃ ＩＮＤＥＸ ┃ ≪前へ │ 次へ≫ ━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━━ ▼セルの値を移動 take 03/2/5(水) 14:57 ┗Re:セルの値を移動 パピー 03/2/5(水) 16:27 ┗Re:セルの値を移動 take 03/2/5(水) 17:10 ┗Re:セルの値を移動 パピー 03/2/5(水) 17:47 ┗Re:セルの値を移動 take 03/2/5(水) 19:55 ┗Re:セルの値を移動 パピー 03/2/6(木) 8:24 ┗Re:セルの値を移動 take 03/2/6(木) 9:05 ┗Re:セルの値を移動 パピー 03/2/6(木) 12:45 ┗Re:セルの値を移動 take 03/2/6(木) 13:44 ─────────────────────────────────────── ■題名 ： セルの値を移動 ■名前 ： take ■日付 ： 03/2/5(水) 14:57 -------------------------------------------------------------------------
| コマンドボタンを作成して、ボタンをクリックすると シート１のセルの値（C1:C20）をシート２のA1:A20のセルに 書き込む。 コードで書くとどのように書くのでしょうか？ お願いします。 |
| ▼take さん：こんにちは。 >コマンドボタンを作成して、ボタンをクリックすると >シート１のセルの値（C1:C20）をシート２のA1:A20のセルに >書き込む。 >コードで書くとどのように書くのでしょうか？ >お願いします。 シート１にコマンドボタンを作って、以下のコードをシート１に 貼り付けて実行してください。 質問の意を外していたらごめんなさい。 Private Sub CommandButton1_Click() Sheets(2).Range("A1:A20").Value = Sheets(1).Range("C1:C20").Value End Sub |
| パピーさんこんにちは。 早速、教えてもらったコードを使用して 試してみたんですが、上手くいきません。 移動してセルの値が消えてしまいますので コピーの方が良いです。すみません。 よろしければ教えてください。 |
| ▼take さん： >移動してセルの値が消えてしまいますので >コピーの方が良いです。すみません。 このコードはコピーのはずです。 当方でのテストでは、ご質問通りの結果が得られています。 消えるようなコードではないのですが。 シート２のＡ１〜Ａ２０には結果が表示されているのですか？ |
| パピーさん. はい、Sheets1のA1:A20のセルの値が消えて Sheets2の方も移動していないです。 どうしてでしょうか？ Ｅｘｃｅｌ2000を使用しています。 |
| ▼take さん： >パピーさん. >はい、Sheets1のA1:A20のセルの値が消えて >Sheets2の方も移動していないです。 >どうしてでしょうか？ >Ｅｘｃｅｌ2000を使用しています。 Ｓｈｅｅｔｓ１はＣ１：Ｃ２０ではないですか？ Ａ１：Ａ２０はシート２ではないですか？ 最初のご質問では、この様になっていますが？ もし、シートが逆ならコードを変更して下さい。 Sheets(2).Range("A1:A20").Value = Sheets(1).Range("C1:C20").Value ↓ Sheets(2).Range("C1:C20").Value = Sheets(1).Range("A1:A20").Value |
| パピーさん,おはようございます。 いえ、内容に間違いは無いのですがエラーが起きてしまいます。 commandButtonを押すと「型が一致しません」、「ｲﾝﾃﾞｯｸｽが有効範囲に ありません」などが出ます。 シート名が Sheet1(表示) Sheet2(データ) Sheets(データ).Range("C1:C20").Value = Sheets(表示).Range("A1:A20").Value なんですが、何か間違っていますか？ |
| ▼take さん： >パピーさん,おはようございます。 >いえ、内容に間違いは無いのですがエラーが起きてしまいます。 >commandButtonを押すと「型が一致しません」、「ｲﾝﾃﾞｯｸｽが有効範囲に >ありません」などが出ます。 >シート名が >Sheet1(表示) >Sheet2(データ) >Sheets(データ).Range("C1:C20").Value = Sheets(表示).Range("A1:A20").Value >なんですが、何か間違っていますか？ パピーです。回答が遅くなってすいません。 シート名を『"』で囲んで下さい。 また、実行結果はSheets("表示")から（→）Sheets("データ")へコピーされますから 確認して下さい。 コードの記述は逆になりますから注意して下さい。 （コード記述上は右から左に書きます） Sheets("データ").Range("C1:C20").Value = Sheets("表示").Range("A1:A20").Value |
| パピーさん. お蔭様で出来ました。ありがとうございました。 |