Excel VBA質問箱 IV

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

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


208 / 73643 ←次へ | 前へ→

【79067】Re:VBAを用いて日付を自動判別して、その横に貼り付けたい
発言  マナ  - 17/4/24(月) 21:05 -

引用なし
パスワード
   ▼せいじ さん:

ここまで理解できたとして

test5 で、

> Worksheets("入力フォーム").Range("B2")

が何度もできてくるので、こういうときも変数を使うとよいです。
こんな感じです。

Sub test6()
  Dim ws入力 As Worksheet
  Dim ws転記 As Worksheet
  Dim c As Range
  Dim 転記行 As Long
 
  Set ws入力 = Worksheets("入力フォーム")
 
  Set c = ws入力.Range("B2")
  
  Set ws転記 = Worksheets(c.Value)

  転記行 = Day(c.Offset(, 1).Value) + 1
  ws転記.Range("B" & 転記行).Resize(, 3).Value = c.Offset(, 2).Resize(, 3).Value
 
End Sub


だんだん、最初に提示したコードに近づいているのがわかりますか。
このあと、test6 に繰り返し処理を追加することになります。

64 hits

【79047】VBAを用いて日付を自動判別して、その横に貼り付けたい せいじ 17/4/20(木) 14:12 質問[未読]
【79048】Re:VBAを用いて日付を自動判別して、その横... マナ 17/4/20(木) 20:10 発言[未読]
【79052】Re:VBAを用いて日付を自動判別して、その横... せいじ 17/4/21(金) 16:49 発言[未読]
【79053】Re:VBAを用いて日付を自動判別して、その横... マナ 17/4/21(金) 18:59 発言[未読]
【79054】Re:VBAを用いて日付を自動判別して、その横... せいじ 17/4/21(金) 20:29 発言[未読]
【79055】Re:VBAを用いて日付を自動判別して、その横... マナ 17/4/21(金) 21:01 発言[未読]
【79056】Re:VBAを用いて日付を自動判別して、その横... せいじ 17/4/22(土) 10:31 発言[未読]
【79057】Re:VBAを用いて日付を自動判別して、その横... マナ 17/4/22(土) 11:27 発言[未読]
【79058】Re:VBAを用いて日付を自動判別して、その横... せいじ 17/4/22(土) 13:30 発言[未読]
【79059】Re:VBAを用いて日付を自動判別して、その横... マナ 17/4/22(土) 14:13 発言[未読]
【79060】Re:VBAを用いて日付を自動判別して、その横... せいじ 17/4/22(土) 14:26 発言[未読]
【79061】Re:VBAを用いて日付を自動判別して、その横... マナ 17/4/22(土) 14:47 発言[未読]
【79062】Re:VBAを用いて日付を自動判別して、その横... マナ 17/4/22(土) 15:08 発言[未読]
【79063】Re:VBAを用いて日付を自動判別して、その横... せいじ 17/4/24(月) 8:22 発言[未読]
【79064】Re:VBAを用いて日付を自動判別して、その横... せいじ 17/4/24(月) 8:59 発言[未読]
【79066】Re:VBAを用いて日付を自動判別して、その横... マナ 17/4/24(月) 20:18 発言[未読]
【79067】Re:VBAを用いて日付を自動判別して、その横... マナ 17/4/24(月) 21:05 発言[未読]
【79068】Re:VBAを用いて日付を自動判別して、その横... せいじ 17/4/25(火) 9:04 発言[未読]
【79070】Re:VBAを用いて日付を自動判別して、その横... マナ 17/4/25(火) 19:42 発言[未読]
【79071】Re:VBAを用いて日付を自動判別して、その横... せいじ 17/4/25(火) 20:43 発言[未読]
【79072】Re:VBAを用いて日付を自動判別して、その横... マナ 17/4/25(火) 20:52 発言[未読]

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