Excel VBA質問箱 IV

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

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


40229 / 76732 ←次へ | 前へ→

【41604】Re:あるセルの内容と同じシート名を探してデータを移動させたい
発言  ぱっせんじゃー  - 06/8/16(水) 15:01 -

引用なし
パスワード
   テキストボックスの値をシート1のA1に表示された
名前のシートのA列の最終行の次の行に転記する
サンプルです。

Dim sht as string
 sht = worksheets("Sheet1").Range("A1").Value
  worksheets(sht).Range("A65536").End(Xlup).Offset(1).Value = _
  UserForm1.TextBox1.Value

50個近い情報というのがテキストボックスなのか何か分かりませんが、
仮にテキストボックスだとすると、テキストボックスの数だけループ
させて転記します。

また、A列の最終行の次の行の行番号も変数に取得しておきます。

'変数の宣言
Dim i as long
Dim MyRow as long
dim sht as string
 'シート名の取得/変数shtに格納
 sht = worksheets("Sheet1").Range("A1").Value
 '取得したシートのA列の最終行の次の行の行番号取得/変数myrowに格納
 myrow = worksheets(sht).Range("A65536").End(Xlup).Offset(1).row
  'ループ処理
  For i = 1 to 50
   worksheets(sht).cells(myrow,i).Value = _
   UserForm1.Controls("TextBox" & i).Value
  next i

0 hits

【41601】あるセルの内容と同じシート名を探してデータを移動させたい 裕香 06/8/16(水) 14:38 質問
【41602】Re:あるセルの内容と同じシート名を探して... ぱっせんじゃー 06/8/16(水) 14:46 発言
【41603】Re:あるセルの内容と同じシート名を探して... ぱっせんじゃー 06/8/16(水) 14:47 発言
【41604】Re:あるセルの内容と同じシート名を探して... ぱっせんじゃー 06/8/16(水) 15:01 発言
【41606】Re:あるセルの内容と同じシート名を探し... 裕香 06/8/16(水) 19:26 お礼
【41607】Re:あるセルの内容と同じシート名を探し... ぱっせんじゃー 06/8/16(水) 20:30 発言
【41618】Re:あるセルの内容と同じシート名を探し... 裕香 06/8/17(木) 10:01 お礼

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