Excel VBA質問箱 IV

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

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


27857 / 76732 ←次へ | 前へ→

【54188】Re:データ取得先のファイルが変更するたびに反映先の行を変更するには?
回答  VBWASURETA  - 08/2/28(木) 18:34 -

引用なし
パスワード
   ▼かおり さん:

まず確認ですが、以下のところはシートが変わった時にだけ入りますか?
>MyName = Dir(MyPath & "\*.xls") 'xlsファイルすべてを選択対象に


簡単にするのであれば、変数が保持できる形にすれば大丈夫です。

保持例:

'↓この定義をソースの上に書くと保持され続けます。
Dim MyPath As String
'↓この定義もソースの上に書くと保持され続けます。
Dim lSetRow As Long

Sub Main()
 '最初はMyPath中身がないので条件に入る
 If (MyPath = "") Then
  lSetRow = 1 '1最初は1行目
 Else'変更の時はMyPath中身があるのでこの条件に入る
  lSetRow = lSetRow + 2 'シート変更時は2行下げる
 End If
 MyName = Dir(MyPath & "\*.xls")

End Sub


こんな感じでlSetRowをCellsの行番号に入れれば
できると思います。
0 hits

【54176】データ取得先のファイルが変更するたびに反映先の行を変更するには? かおり 08/2/27(水) 18:01 質問
【54180】Re:データ取得先のファイルが変更するたび... VBWASURETA 08/2/28(木) 11:08 回答
【54183】Re:データ取得先のファイルが変更するたび... かおり 08/2/28(木) 14:21 質問
【54188】Re:データ取得先のファイルが変更するたび... VBWASURETA 08/2/28(木) 18:34 回答
【54208】Re:データ取得先のファイルが変更するたび... かおり 08/2/29(金) 16:53 お礼

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