Excel VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


11395 / 13645 ツリー ←次へ | 前へ→

【16310】セル表示したら自動的に別のシートのセル... さる 04/7/25(日) 0:53 質問[未読]
【16312】Re:セル表示したら自動的に別のシートのセ... IROC 04/7/25(日) 1:09 回答[未読]
【16315】Re:セル表示したら自動的に別のシートのセ... さる 04/7/25(日) 1:26 質問[未読]
【16316】Re:セル表示したら自動的に別のシートのセ... IROC 04/7/25(日) 1:56 回答[未読]
【16322】Re:セル表示したら自動的に別のシートの... さる 04/7/25(日) 9:36 質問[未読]
【16323】Re:セル表示したら自動的に別のシートの... IROC 04/7/25(日) 10:07 回答[未読]
【16325】Re:セル表示したら自動的に別のシートの... さる 04/7/25(日) 11:59 質問[未読]
【16327】Re:セル表示したら自動的に別のシートの... さる 04/7/25(日) 14:48 発言[未読]
【16329】Re:セル表示したら自動的に別のシートの... IROC 04/7/25(日) 15:23 回答[未読]
【16332】Re:セル表示したら自動的に別のシートの... さる 04/7/25(日) 15:53 質問[未読]
【16335】Re:セル表示したら自動的に別のシートの... IROC 04/7/25(日) 16:00 回答[未読]
【16341】Re:セル表示したら自動的に別のシートの... さる 04/7/25(日) 18:45 質問[未読]
【16342】Re:セル表示したら自動的に別のシートの... IROC 04/7/25(日) 18:53 回答[未読]
【16344】Re:セル表示したら自動的に別のシートの... さる 04/7/25(日) 19:23 質問[未読]
【16349】Re:セル表示したら自動的に別のシートの... IROC 04/7/25(日) 21:25 回答[未読]
【16353】Re:セル表示したら自動的に別のシートの... さる 04/7/26(月) 0:11 お礼[未読]

【16310】セル表示したら自動的に別のシートのセル...
質問  さる E-MAIL  - 04/7/25(日) 0:53 -

引用なし
パスワード
   セル入力したら自動的に別のシートのセルへ表示する方法がありますか?
 

例えば

1シート   2シート
  A     A
1 25    1 25
2 22    2 22
3 20    3 20
4 18    4 18

5のセルに30を表示したら もう2シートに5のセルを30表示します。
1行のごとに追加します。
データコピーして貼り付けでも2シートを表示します。
つまり2シートは1シートからデータ読込と言えます。

この方法があれば教えてください。

コードも教えてくればありがたいと存じます。
どうかよろしくお願いします。

【16312】Re:セル表示したら自動的に別のシートの...
回答  IROC  - 04/7/25(日) 1:09 -

引用なし
パスワード
   1シート、2シートがまったく同じなら、
セル全体を選択してコピーしては如何ですか?

それならマクロの記録で出来ると思います。

セルに入力があったときに動作させたいのであれば
Changeイベントに記述すればよいと思います。
もしくはシートのActivateイベントの方がよいかもしれません。

【16315】Re:セル表示したら自動的に別のシートの...
質問  さる E-MAIL  - 04/7/25(日) 1:26 -

引用なし
パスワード
   ▼IROC さん:
ありがとうございます・
1シート、2シートがまったく同じでなく、データはまったく同じが
セル番地は違いますけどコピーでは無理です。

【16316】Re:セル表示したら自動的に別のシートの...
回答  IROC  - 04/7/25(日) 1:56 -

引用なし
パスワード
   これまでの説明では、処理の条件・法則が把握できません。

もっと詳しく説明をお願いします。

【16322】Re:セル表示したら自動的に別のシートの...
質問  さる E-MAIL  - 04/7/25(日) 9:36 -

引用なし
パスワード
   大変申し訳はありませんが説明不足です。
私はVBA初心者なのでコードみてもらいませんか?


1シート

  A  B  C
1 20 23 36
2 18 15 26
3 15 18 13
4 15 30 31
5 _
入力して終わったら1行追加する。

2シート
  B  H  J
1 20 23 36
2 18 15 26
3 15 18 13
4 15 30 31
5 _


行は同じが列は違う。2シートは決められたセル番地を表示します。
1シートはデータ入力作業しながら2シートを自動的に入力する方法です。

【16323】Re:セル表示したら自動的に別のシートの...
回答  IROC  - 04/7/25(日) 10:07 -

引用なし
パスワード
   >コードみてもらいませんか?

いいですよ。
出来ているところまで掲載して下さい。

【16325】Re:セル表示したら自動的に別のシートの...
質問  さる E-MAIL  - 04/7/25(日) 11:59 -

引用なし
パスワード
   ▼IROC さん:
>>コードみてもらいませんか?
>
>いいですよ。
>出来ているところまで掲載して下さい。
ありがとうございます。

Private Sub Worksheet_Activate()’・・・2シート

Dim i As Long
Dim ws As Worksheet, Rpos As Long
  Set ws = Worksheets("1シート")
  
  ws.Activate
  'A列(番号)の最終行をチェックし、そこに通し番号を入力します。
  Rpos = ws.Range("A65536").End(xlUp).Row + 1
  'B列(氏名)にテキストボックスの氏名を入力します。
  With ws
    If Rpos = 3 Then
      .Cells(Rpos, 1).Value = 1
    Else
      .Cells(Rpos, 1).Value = .Cells(Rpos - 1, 1).Value + 1
    End If
    ws.Cells(Rpos, 10).Value = .Cells(Rpos, 3).Value 'A-1
    ws.Cells(Rpos, 11).Value = .Cells(Rpos, 5).Value 'A-2
    ws.Cells(Rpos, 12).Value = .Cells(Rpos, 7).Value 'A-3
    ws.Cells(Rpos, 13).Value = .Cells(Rpos, 9).Value 'A-4
    ws.Cells(Rpos, 14).Value = .Cells(Rpos, 11).Value 'A-5
    ws.Cells(Rpos, 15).Value = .Cells(Rpos, 13).Value 'A-6
    ws.Cells(Rpos, 16).Value = .Cells(Rpos, 15).Value 'A-7
    ws.Cells(Rpos, 17).Value = .Cells(Rpos, 17).Value 'A-8
    ws.Cells(Rpos, 18).Value = .Cells(Rpos, 19).Value 'A-9
    ws.Cells(Rpos, 19).Value = .Cells(Rpos, 21).Value 'A-10
    ws.Cells(Rpos, 20).Value = .Cells(Rpos, 23).Value 'A-11
    ws.Cells(Rpos, 21).Value = .Cells(Rpos, 25).Value 'A-12
    ws.Cells(Rpos, 22).Value = .Cells(Rpos, 27).Value 'A-13
    ws.Cells(Rpos, 23).Value = .Cells(Rpos, 29).Value 'A-14
    ws.Cells(Rpos, 24).Value = .Cells(Rpos, 31).Value 'A-15
    ws.Cells(Rpos, 25).Value = .Cells(Rpos, 33).Value 'A-16
    ws.Cells(Rpos, 26).Value = .Cells(Rpos, 35).Value 'A-17
    ws.Cells(Rpos, 27).Value = .Cells(Rpos, 37).Value 'B-1
    ws.Cells(Rpos, 28).Value = .Cells(Rpos, 39).Value 'B-2
    ws.Cells(Rpos, 29).Value = .Cells(Rpos, 41).Value 'B-3
    ws.Cells(Rpos, 30).Value = .Cells(Rpos, 43).Value 'B-4
    ws.Cells(Rpos, 31).Value = .Cells(Rpos, 45).Value 'B-5
    ws.Cells(Rpos, 32).Value = .Cells(Rpos, 47).Value 'B-6
    ws.Cells(Rpos, 33).Value = .Cells(Rpos, 49).Value 'B-7
    ws.Cells(Rpos, 34).Value = .Cells(Rpos, 51).Value 'B-8
    ws.Cells(Rpos, 35).Value = .Cells(Rpos, 53).Value 'B-9
    ws.Cells(Rpos, 36).Value = .Cells(Rpos, 55).Value 'B-10
    ws.Cells(Rpos, 37).Value = .Cells(Rpos, 57).Value 'B-11
    ws.Cells(Rpos, 38).Value = .Cells(Rpos, 59).Value 'B-12
    ws.Cells(Rpos, 39).Value = .Cells(Rpos, 61).Value 'B-13
    ws.Cells(Rpos, 40).Value = .Cells(Rpos, 63).Value 'B-14
    ws.Cells(Rpos, 41).Value = .Cells(Rpos, 65).Value 'B-15
    ws.Cells(Rpos, 42).Value = .Cells(Rpos, 67).Value 'B-16
    ws.Cells(Rpos, 43).Value = .Cells(Rpos, 69).Value 'B-17
    ws.Cells(Rpos, 44).Value = .Cells(Rpos, 71).Value 'B-18
    ws.Cells(Rpos, 45).Value = .Cells(Rpos, 73).Value 'B-19
    ws.Cells(Rpos, 46).Value = .Cells(Rpos, 75).Value 'B-20
    ws.Cells(Rpos, 47).Value = .Cells(Rpos, 77).Value 'B-21
    ws.Cells(Rpos, 48).Value = .Cells(Rpos, 79).Value 'B-22
    ws.Cells(Rpos, 49).Value = .Cells(Rpos, 81).Value 'B-23
    ws.Cells(Rpos, 50).Value = .Cells(Rpos, 83).Value 'B-24
    ws.Cells(Rpos, 51).Value = .Cells(Rpos, 85).Value 'B-25
    ws.Cells(Rpos, 52).Value = .Cells(Rpos, 87).Value 'B-26
    ws.Cells(Rpos, 53).Value = .Cells(Rpos, 89).Value 'B-27
    ws.Cells(Rpos, 54).Value = .Cells(Rpos, 91).Value 'B-28
    ws.Cells(Rpos, 55).Value = .Cells(Rpos, 93).Value 'B-29
    
   
End With
End Sub

【16327】Re:セル表示したら自動的に別のシートの...
発言  さる E-MAIL  - 04/7/25(日) 14:48 -

引用なし
パスワード
   コード実行したら何の結果が出ませんでした。

1シートに入力したら2シートは空セルのままでした。

例文でもいいから何卒ご指導お願い申し上げます。

【16329】Re:セル表示したら自動的に別のシートの...
回答  IROC  - 04/7/25(日) 15:23 -

引用なし
パスワード
   コードの中で2シートを指定していませんよ?

すべて ws でしていされているので、 1シートが対象になっています。

落ち着いて、コードを見直して下さい。

【16332】Re:セル表示したら自動的に別のシートの...
質問  さる E-MAIL  - 04/7/25(日) 15:53 -

引用なし
パスワード
   ▼IROC さん:
>コードの中で2シートを指定していませんよ?

すみません。2シートを指定する構文は何でしょうか?
教えてください。

【16335】Re:セル表示したら自動的に別のシートの...
回答  IROC  - 04/7/25(日) 16:00 -

引用なし
パスワード
   >すみません。2シートを指定する構文は何でしょうか?
>教えてください。

Worksheets("2シート").Cells(・・・

です。


掲載されたコードは
左辺が ws で 1シートを指定し、
右辺は .で始まっているので、
with 文の ws が指定されています。

各構文の使い方が分かっていないのであれば、
1つずつ、ヘルプで調べて見て下さい。

【16341】Re:セル表示したら自動的に別のシートの...
質問  さる E-MAIL  - 04/7/25(日) 18:45 -

引用なし
パスワード
   ▼IROC さん:
>>すみません。2シートを指定する構文は何でしょうか?
>>教えてください。
>
>Worksheets("2シート").Cells(・・・
>
>です。
>
>
>掲載されたコードは
>左辺が ws で 1シートを指定し、
>右辺は .で始まっているので、
>with 文の ws が指定されています。
>
>各構文の使い方が分かっていないのであれば、
>1つずつ、ヘルプで調べて見て下さい。
ありがとうございます。
修正して1シートにデータ入力したら2シートを空セルのままでした。
どこに間違えている箇所を教えてください。

Private Sub Worksheet_Activate()(2シート)


Dim Rpos As Long
  
 
  'A列(番号)の最終行をチェックし、そこに通し番号を入力します。
  Rpos = Worksheets("2シート").Range("A65536").End(xlUp).Row + 1
  'B列(氏名)にテキストボックスの氏名を入力します。
  With Worksheets("2シート")
    If Rpos = 3 Then
      .Cells(Rpos, 1).Value = 1
    Else
      .Cells(Rpos, 1).Value = .Cells(Rpos - 1, 1).Value + 1
    End If
    Worksheets("2シート").Cells(Rpos, 10).Value = .Cells(Rpos, 3).Value 'A-1
    Worksheets("2シート").Cells(Rpos, 11).Value = .Cells(Rpos, 5).Value 'A-2
    Worksheets("2シート").Cells(Rpos, 12).Value = .Cells(Rpos, 7).Value 'A-3
    Worksheets("2シート").Cells(Rpos, 13).Value = .Cells(Rpos, 9).Value 'A-4
    Worksheets("2シート").Cells(Rpos, 14).Value = .Cells(Rpos, 11).Value 'A-5
    Worksheets("2シート").Cells(Rpos, 15).Value = .Cells(Rpos, 13).Value 'A-6
    Worksheets("2シート").Cells(Rpos, 16).Value = .Cells(Rpos, 15).Value 'A-7
    Worksheets("2シート").Cells(Rpos, 17).Value = .Cells(Rpos, 17).Value 'A-8
    Worksheets("2シート").Cells(Rpos, 18).Value = .Cells(Rpos, 19).Value 'A-9
    Worksheets("2シート").Cells(Rpos, 19).Value = .Cells(Rpos, 21).Value 'A-10
    Worksheets("2シート").Cells(Rpos, 20).Value = .Cells(Rpos, 23).Value 'A-11
    Worksheets("2シート").Cells(Rpos, 21).Value = .Cells(Rpos, 25).Value 'A-12
    Worksheets("2シート").Cells(Rpos, 22).Value = .Cells(Rpos, 27).Value 'A-13
    Worksheets("2シート").Cells(Rpos, 23).Value = .Cells(Rpos, 29).Value 'A-14
    Worksheets("2シート").Cells(Rpos, 24).Value = .Cells(Rpos, 31).Value 'A-15
    Worksheets("2シート").Cells(Rpos, 25).Value = .Cells(Rpos, 33).Value 'A-16
    Worksheets("2シート").Cells(Rpos, 26).Value = .Cells(Rpos, 35).Value 'A-17
    Worksheets("2シート").Cells(Rpos, 27).Value = .Cells(Rpos, 37).Value 'B-1
    Worksheets("2シート").Cells(Rpos, 28).Value = .Cells(Rpos, 39).Value 'B-2
    Worksheets("2シート").Cells(Rpos, 29).Value = .Cells(Rpos, 41).Value 'B-3
    Worksheets("2シート").Cells(Rpos, 30).Value = .Cells(Rpos, 43).Value 'B-4
    Worksheets("2シート").Cells(Rpos, 31).Value = .Cells(Rpos, 45).Value 'B-5
    Worksheets("2シート").Cells(Rpos, 32).Value = .Cells(Rpos, 47).Value 'B-6
    Worksheets("2シート").Cells(Rpos, 33).Value = .Cells(Rpos, 49).Value 'B-7
    Worksheets("2シート").Cells(Rpos, 34).Value = .Cells(Rpos, 51).Value 'B-8
    Worksheets("2シート").Cells(Rpos, 35).Value = .Cells(Rpos, 53).Value 'B-9
    Worksheets("2シート").Cells(Rpos, 36).Value = .Cells(Rpos, 55).Value 'B-10
    Worksheets("2シート").Cells(Rpos, 37).Value = .Cells(Rpos, 57).Value 'B-11
    Worksheets("2シート").Cells(Rpos, 38).Value = .Cells(Rpos, 59).Value 'B-12
    Worksheets("2シート").Cells(Rpos, 39).Value = .Cells(Rpos, 61).Value 'B-13
    Worksheets("2シート").Cells(Rpos, 40).Value = .Cells(Rpos, 63).Value 'B-14
    Worksheets("2シート").Cells(Rpos, 41).Value = .Cells(Rpos, 65).Value 'B-15
    Worksheets("2シート").Cells(Rpos, 42).Value = .Cells(Rpos, 67).Value 'B-16
    Worksheets("2シート").Cells(Rpos, 43).Value = .Cells(Rpos, 69).Value 'B-17
    Worksheets("2シート").Cells(Rpos, 44).Value = .Cells(Rpos, 71).Value 'B-18
    Worksheets("2シート").Cells(Rpos, 45).Value = .Cells(Rpos, 73).Value 'B-19
    Worksheets("2シート").Cells(Rpos, 46).Value = .Cells(Rpos, 75).Value 'B-20
    Worksheets("2シート").Cells(Rpos, 47).Value = .Cells(Rpos, 77).Value 'B-21
    Worksheets("2シート").Cells(Rpos, 48).Value = .Cells(Rpos, 79).Value 'B-22
    Worksheets("2シート").Cells(Rpos, 49).Value = .Cells(Rpos, 81).Value 'B-23
    Worksheets("2シート").Cells(Rpos, 50).Value = .Cells(Rpos, 83).Value 'B-24
    Worksheets("2シート").Cells(Rpos, 51).Value = .Cells(Rpos, 85).Value 'B-25
    Worksheets("2シート").Cells(Rpos, 52).Value = .Cells(Rpos, 87).Value 'B-26
    Worksheets("2シート").Cells(Rpos, 53).Value = .Cells(Rpos, 89).Value 'B-27
    Worksheets("2シート").Cells(Rpos, 54).Value = .Cells(Rpos, 91).Value 'B-28
    Worksheets("2シート").Cells(Rpos, 55).Value = .Cells(Rpos, 93).Value 'B-29
    
   
End With
End Sub

【16342】Re:セル表示したら自動的に別のシートの...
回答  IROC  - 04/7/25(日) 18:53 -

引用なし
パスワード
   >修正して1シートにデータ入力したら2シートを空セルのままでした。

こんどは、全部2シートを参照しており
1シートを参照していませんよ。

右辺から左辺に代入されるのは理解されていますか?

【16344】Re:セル表示したら自動的に別のシートの...
質問  さる E-MAIL  - 04/7/25(日) 19:23 -

引用なし
パスワード
   ▼IROC さん:
>>修正して1シートにデータ入力したら2シートを空セルのままでした。
>
>こんどは、全部2シートを参照しており
>1シートを参照していませんよ。
>
>右辺から左辺に代入されるのは理解されていますか?


ありがとうございます。
私は理解されていませんので箇所教えてくれませんか?

'A列(番号)の最終行をチェックし、そこに通し番号を入力します。
  Rpos = Worksheets("1シート").Range("A65536").End(xlUp).Row + 1
  'B列(氏名)にテキストボックスの氏名を入力します。
  With Worksheets("2シート")
    If Rpos = 3 Then
      .Cells(Rpos, 1).Value = 1
    Else
      .Cells(Rpos, 1).Value = .Cells(Rpos - 1, 1).Value + 1
    End If
    .Cells(Rpos, 3).Value = Worksheets("2シート").Cells(Rpos, 10).Value 'A-1
    .Cells(Rpos, 5).Value = Worksheets("2シート").Cells(Rpos, 11).Value 'A-2
    .Cells(Rpos, 7).Value = Worksheets("2シート").Cells(Rpos, 12).Value 'A-3
    .Cells(Rpos, 9).Value = Worksheets("2シート").Cells(Rpos, 13).Value 'A-4
    .Cells(Rpos, 11).Value = Worksheets("2シート").Cells(Rpos, 14).Value 'A-5
    .Cells(Rpos, 13).Value = Worksheets("2シート").Cells(Rpos, 15).Value 'A-6
    .Cells(Rpos, 15).Value = Worksheets("2シート").Cells(Rpos, 16).Value 'A-7
    .Cells(Rpos, 17).Value = Worksheets("2シート").Cells(Rpos, 17).Value 'A-8
    .Cells(Rpos, 19).Value = Worksheets("2シート").Cells(Rpos, 18).Value 'A-9
    .Cells(Rpos, 21).Value = Worksheets("2シート").Cells(Rpos, 19).Value 'A-10
    .Cells(Rpos, 23).Value = Worksheets("2シート").Cells(Rpos, 20).Value 'A-11
    .Cells(Rpos, 25).Value = Worksheets("2シート").Cells(Rpos, 21).Value 'A-12
    .Cells(Rpos, 27).Value = Worksheets("2シート").Cells(Rpos, 22).Value 'A-13
    .Cells(Rpos, 29).Value = Worksheets("2シート").Cells(Rpos, 23).Value 'A-14
    .Cells(Rpos, 31).Value = Worksheets("2シート").Cells(Rpos, 24).Value 'A-15
    .Cells(Rpos, 33).Value = Worksheets("2シート").Cells(Rpos, 25).Value 'A-16
    .Cells(Rpos, 35).Value = Worksheets("2シート").Cells(Rpos, 26).Value 'A-17
    .Cells(Rpos, 37).Value = Worksheets("2シート").Cells(Rpos, 27).Value 'B-1
    .Cells(Rpos, 39).Value = Worksheets("2シート").Cells(Rpos, 28).Value 'B-2
    .Cells(Rpos, 41).Value = Worksheets("2シート").Cells(Rpos, 29).Value 'B-3
    .Cells(Rpos, 43).Value = Worksheets("2シート").Cells(Rpos, 30).Value 'B-4
    .Cells(Rpos, 45).Value = Worksheets("2シート").Cells(Rpos, 31).Value 'B-5
    .Cells(Rpos, 47).Value = Worksheets("2シート").Cells(Rpos, 32).Value 'B-6
    .Cells(Rpos, 49).Value = Worksheets("2シート").Cells(Rpos, 33).Value 'B-7
    .Cells(Rpos, 51).Value = Worksheets("2シート").Cells(Rpos, 34).Value 'B-8
    .Cells(Rpos, 53).Value = Worksheets("2シート").Cells(Rpos, 35).Value 'B-9
    .Cells(Rpos, 55).Value = Worksheets("2シート").Cells(Rpos, 36).Value 'B-10
    .Cells(Rpos, 57).Value = Worksheets("2シート").Cells(Rpos, 37).Value 'B-11
    .Cells(Rpos, 59).Value = Worksheets("2シート").Cells(Rpos, 38).Value 'B-12
    .Cells(Rpos, 61).Value = Worksheets("2シート").Cells(Rpos, 39).Value 'B-13
    .Cells(Rpos, 63).Value = Worksheets("2シート").Cells(Rpos, 40).Value 'B-14
    .Cells(Rpos, 65).Value = Worksheets("2シート").Cells(Rpos, 41).Value 'B-15
    .Cells(Rpos, 67).Value = Worksheets("2シート").Cells(Rpos, 42).Value 'B-16
    .Cells(Rpos, 69).Value = Worksheets("2シート").Cells(Rpos, 43).Value 'B-17
    .Cells(Rpos, 71).Value = Worksheets("2シート").Cells(Rpos, 44).Value 'B-18
    .Cells(Rpos, 73).Value = Worksheets("2シート").Cells(Rpos, 45).Value 'B-19
    .Cells(Rpos, 75).Value = Worksheets("2シート").Cells(Rpos, 46).Value 'B-20
    .Cells(Rpos, 77).Value = Worksheets("2シート").Cells(Rpos, 47).Value 'B-21
    .Cells(Rpos, 79).Value = Worksheets("2シート").Cells(Rpos, 48).Value 'B-22
    .Cells(Rpos, 81).Value = Worksheets("2シート").Cells(Rpos, 49).Value 'B-23
    .Cells(Rpos, 83).Value = Worksheets("2シート").Cells(Rpos, 50).Value 'B-24
    .Cells(Rpos, 85).Value = Worksheets("2シート").Cells(Rpos, 51).Value 'B-25
    .Cells(Rpos, 87).Value = Worksheets("2シート").Cells(Rpos, 52).Value 'B-26
    .Cells(Rpos, 89).Value = Worksheets("2シート").Cells(Rpos, 53).Value 'B-27
    .Cells(Rpos, 91).Value = Worksheets("2シート").Cells(Rpos, 54).Value 'B-28
    .Cells(Rpos, 93).Value = Worksheets("2シート").Cells(Rpos, 55).Value 'B-29
    
   
End With
End Sub

【16349】Re:セル表示したら自動的に別のシートの...
回答  IROC  - 04/7/25(日) 21:25 -

引用なし
パスワード
   >私は理解されていませんので箇所教えてくれませんか?

>  With Worksheets("2シート")
>  .Cells(Rpos, 3).Value = Worksheets("2シート").Cells(・・・

ここで右辺から左辺からValueで値を渡しています。

ヘルプで分からない単語を最初から調べ直して下さい。

この内容は、VBAの初歩です。
一からお教えするよりも、もっと基本的なことから
学習されることをお勧め致します。


http://www.sanynet.ne.jp/~awa/excelvba/kouza/chapt_03/018.html

http://www6.plala.or.jp/MilkHouse/menu.html

【16353】Re:セル表示したら自動的に別のシートの...
お礼  さる E-MAIL  - 04/7/26(月) 0:11 -

引用なし
パスワード
   ▼IROC さん:
>>私は理解されていませんので箇所教えてくれませんか?
>
>>  With Worksheets("2シート")
>>  .Cells(Rpos, 3).Value = Worksheets("2シート").Cells(・・・
>
>ここで右辺から左辺からValueで値を渡しています。
>
>ヘルプで分からない単語を最初から調べ直して下さい。
>
>この内容は、VBAの初歩です。
>一からお教えするよりも、もっと基本的なことから
>学習されることをお勧め致します。
>
>
>http://www.sanynet.ne.jp/~awa/excelvba/kouza/chapt_03/018.html
>
>http://www6.plala.or.jp/MilkHouse/menu.html

ありがとうございます。これから勉強しておきます。
今、エラー多発していますが勉強しながら解決します。
もし、限界でしたらどうかご指南お願いします。

11395 / 13645 ツリー ←次へ | 前へ→
ページ:  ┃  記事番号:
2610219
(SS)C-BOARD v3.8 is Free