|
かみちゃんさん こんにちわ
かみちゃんさんの書いてある処理がしたい形です。
入力のコード記述は現在この形です。
Public Sub textadd()
sheet_set
With addform
text1 = .TextBox1
text2 = .TextBox2
msg1 = MsgBox("入力してもいいですか?", vbYesNo)
If text1 = "" Or text2 = "" Then
MsgBox ("車種、または車型を入力してください")
Unload addform
Exit Sub
End If
If msg1 = vbYes Then
cnta = WorksheetFunction.CountA(ws2.Range("c1:az1"))
tcnta = WorksheetFunction.CountA(ws3.Range("e4:az4"))
cnta = cnta + 3
tcnta = tcnta + 5
With ws2
.Cells(1, cnta).Value = text1
.Cells(2, cnta).Value = text2
End With
With ws3
.Cells(3, tcnta).Value = text1
.Cells(4, tcnta).Value = text2
End With
Unload addform
Else
.TextBox1 = ""
.TextBox2 = ""
End If
End With
End Sub
▼かみちゃん さん:
>こんにちは。かみちゃん です。
>
>>データを入力すると発注数の項目がFの位置から一つ横の行にずれるという形にしたい
>
>UserFormのTextBoxに入力したら、1列挿入して、F3、F4に入力して、G1に発注数
>を表示したいということでしょうか?
>
> E F
>1 車種 発注数
>2 車型
>3 車種データ
>4 車型データ
>
> ↓ UserFormのTextBoxに入力するとこんな感じ?(F列を挿入)
>
> E F G
>1 車種 発注数
>2 車型
>3 車種データ 車種データ
>4 車型データ 車型データ
>
> ↓ UserFormのTextBoxに入力するとこんな感じ?(G列を挿入)
>
> E F G H
>1 車種 発注数
>2 車型
>3 車種データ 車種データ 車種データ
>4 車型データ 車型データ 車型データ
|
|