Excel VBA質問箱 IV

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

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


52977 / 76732 ←次へ | 前へ→

【28579】Re:UserFormのTextBox入力後に特定セルを横にずらしたい
質問  tbtk  - 05/9/9(金) 14:30 -

引用なし
パスワード
   かみちゃんさん こんにちわ
かみちゃんさんの書いてある処理がしたい形です。
入力のコード記述は現在この形です。
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 車型データ 車型データ 車型データ

0 hits

【28577】教えてください tbtk 05/9/9(金) 14:10 質問
【28578】Re:UserFormのTextBox入力後に特定セルを横... かみちゃん 05/9/9(金) 14:22 発言
【28579】Re:UserFormのTextBox入力後に特定セルを横... tbtk 05/9/9(金) 14:30 質問
【28580】Re:UserFormのTextBox入力後に特定セルを横... かみちゃん 05/9/9(金) 14:37 発言
【28581】Re:UserFormのTextBox入力後に特定セルを横... tbtk 05/9/9(金) 14:44 発言
【28582】Re:UserFormのTextBox入力後に特定セルを横... かみちゃん 05/9/9(金) 14:50 発言
【28583】Re:UserFormのTextBox入力後に特定セルを横... tbtk 05/9/9(金) 14:56 発言
【28584】Re:UserFormのTextBox入力後に特定セルを横... かみちゃん 05/9/9(金) 15:06 発言
【28585】Re:UserFormのTextBox入力後に特定セルを横... tbtk 05/9/9(金) 15:27 発言
【28586】Re:UserFormのTextBox入力後に特定セルを横... かみちゃん 05/9/9(金) 15:34 発言
【28588】Re:UserFormのTextBox入力後に特定セルを横... tbtk 05/9/9(金) 15:41 お礼
【28660】Re:UserFormのTextBox入力後に特定セルを横... tbtk 05/9/12(月) 9:48 質問
【28690】Re:UserFormのTextBox入力後に特定セルを横... かみちゃん 05/9/12(月) 23:57 回答
【28703】Re:UserFormのTextBox入力後に特定セルを横... tbtk 05/9/13(火) 9:18 発言
【28708】Re:UserFormのTextBox入力後に特定セルを横... tbtk 05/9/13(火) 11:39 お礼
【28717】Re:UserFormのTextBox入力後に特定セルを横... tbtk 05/9/13(火) 14:45 質問
【28754】Re:UserFormのTextBox入力後に特定セルを横... かみちゃん 05/9/13(火) 22:57 回答
【28762】Re:UserFormのTextBox入力後に特定セルを横... tbtk 05/9/14(水) 8:34 お礼

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