| |
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
|
|
![[未読]](./data/excel/image/read_icon.gif){kind=icon}
