Excel VBA質問箱 IV

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

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


52995 / 76736 ←次へ | 前へ→

【28565】Re:どうしてもわかりません
お礼  tbtk  - 05/9/9(金) 11:37 -

引用なし
パスワード
   すいません、Statisさん ちくたくさん かみちゃんさん
Statisさんの回答で無事解決しました。本当にありがとうございました。
お手数おかけしました。
また、機会があればよろしくお願いします。
▼Statis さん:
>▼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 発言

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