Excel VBA質問箱 IV

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

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


52996 / 76732 ←次へ | 前へ→

【28560】Re:どうしてもわかりません
回答  Statis  - 05/9/9(金) 11:18 -

引用なし
パスワード
   ▼tbtk さん:こんにちは
>▼ちくたく さん:
>>お返事ありがとうございます
>If msg1 = vbYes Then
>        cnta = WorksheetFunction.CountA(Range("c1:az1"))
>        cnta = cnta + 3
>        
>        Cells(1, cnta) = text1
>        Cells(2, cnta) = text2
>        
>        
>        Unload addform
>      
>    Else
>        .TextBox1 = ""
>        .TextBox2 = ""
>    End If
>  End With
>今は上記のコードになっています。


シート名の指定が無いためアクティブシートに記載されるのでは

cnta = WorksheetFunction.CountA(Worksheets("該当シート名").Range("c1:az1"))
With Worksheets("Sheet1")
   .Cells(1, cnta).Value = text1
   .Cells(2, cnta).Value = text2
End With
With Worksheets("Sheet2")
   .Cells(1, cnta).Value = text1
   .Cells(2, cnta).Value = text2
End With

0 hits

【28556】どうしてもわかりません tbtk 05/9/9(金) 10:58 質問
【28557】Re:どうしてもわかりません ちくたく 05/9/9(金) 11:02 発言
【28559】Re:どうしてもわかりません tbtk 05/9/9(金) 11:07 質問
【28560】Re:どうしてもわかりません Statis 05/9/9(金) 11:18 回答
【28565】Re:どうしてもわかりません tbtk 05/9/9(金) 11:37 お礼
【28561】Re:UserFormのTextBoxの値がSheet2に表示で... かみちゃん 05/9/9(金) 11:20 発言
【28563】Re:UserFormのTextBoxの値がSheet2に表示で... tbtk 05/9/9(金) 11:27 質問
【28564】Re:UserFormのTextBoxの値がSheet2に表示で... かみちゃん 05/9/9(金) 11:33 発言
【28562】USerFormのTextBoxの値をSheetに表示する? ちくたく 05/9/9(金) 11:20 発言
【28558】Re:UserFormのTextBoxの値がSheet2に表示で... かみちゃん 05/9/9(金) 11:03 発言

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