Excel VBA質問箱 IV

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

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


42818 / 76735 ←次へ | 前へ→

【38979】Re:初心者ですがよろしくお願いします
発言  Jaka  - 06/6/15(木) 16:31 -

引用なし
パスワード
   シート名が数字のまんまってのは、インデックス番号と間違えるから、
あまり使いたくないけど...。

Private Sub Worksheet_Change(ByVal Target As Range)
Dim st As String
If Target.Address(0, 0) = "A1" Then
  If IsNumeric(Target.Value) Then
   If Target.Value > "0" And Target.Value <= "50" Then
     st = Target.Value
     Application.EnableEvents = False
     Range("B1").Value = Sheets(st).Range("B1").Value
     Application.EnableEvents = True
   End If
  End If
End If
End Sub

0 hits

【38974】初心者ですがよろしくお願いします taka 06/6/15(木) 15:59 質問
【38977】Re:初心者ですがよろしくお願いします Blue 06/6/15(木) 16:23 質問
【38978】Re:初心者ですがよろしくお願いします taka 06/6/15(木) 16:28 質問
【38979】Re:初心者ですがよろしくお願いします Jaka 06/6/15(木) 16:31 発言
【38982】Re:初心者ですがよろしくお願いします taka 06/6/15(木) 16:37 質問
【38983】Re:初心者ですがよろしくお願いします Blue 06/6/15(木) 16:38 発言
【38988】Re:初心者ですがよろしくお願いします taka 06/6/15(木) 16:49 質問
【38990】Re:初心者ですがよろしくお願いします Blue 06/6/15(木) 17:02 発言
【39017】Re:初心者ですがよろしくお願いします taka 06/6/16(金) 9:22 お礼
【39018】Re:初心者ですがよろしくお願いします Blue 06/6/16(金) 9:25 質問
【39019】Re:初心者ですがよろしくお願いします taka 06/6/16(金) 9:30 質問
【39020】Re:初心者ですがよろしくお願いします Blue 06/6/16(金) 9:36 発言

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