Excel VBA質問箱 IV

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

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


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

【75753】コード簡略化 ゆーあ 14/6/27(金) 9:48 質問[未読]
【75754】Re:コード簡略化 カリーニン 14/6/27(金) 9:54 発言[未読]
【75755】Re:コード簡略化 ゆーあ 14/6/27(金) 13:40 お礼[未読]

【75753】コード簡略化
質問  ゆーあ  - 14/6/27(金) 9:48 -

引用なし
パスワード
   WinXP Excel2000

フォーム上にあるテキストボックスで、セルの値を表示・入力しており、
連動しているのですが、テキストボックスの数が多いので、
かなりコードが長くなっております。
簡略化コードについて、ご教授宜しくお願い致します。
下記に現コードを示します。


Dim ACR As Long
ActiveWorkbook.Worksheets("Sheet2").Activate
ACR = ActiveCell.Row
If Not フォーム〇〇.Label1.Caption = Empty Then

  Cells(ACR, 1).Value = フォーム□□.テキストボックス1
  Cells(ACR, 2).Value = フォーム□□.テキストボックス2
  Cells(ACR, 3).Value = フォーム□□.テキストボックス3
  Cells(ACR, 4).Value = フォーム□□.テキストボックス4
  Cells(ACR, 5).Value = フォーム□□.テキストボックス5           ・
           ・
           ・
           ・
  Cells(ACR, 100).Value = フォーム□□.テキストボックス100
  
MsgBox "登録・更新しました。"
Else
MsgBox "情報が選択されていません。"
フォーム〇〇.Label1.Caption = Empty
End If
 Worksheets("Sheet1").Select
End Sub

【75754】Re:コード簡略化
発言  カリーニン  - 14/6/27(金) 9:54 -

引用なし
パスワード
   こんな感じでいけるのでは?

Dim i As Integer

'中略

 For i = 1 to 100
  Activeworkbook.Worksheets("Sheet2").Cells(ACR,i).Value = フォーム□□.Controls("TextBox" & i).Value
 Next i

【75755】Re:コード簡略化
お礼  ゆーあ  - 14/6/27(金) 13:40 -

引用なし
パスワード
   カリーニン さん

ありがとうございます!
かなり簡略できました!助かりました!

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