Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6047 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【47474】ユーザーフォームのリストボックスから記入 iida 07/3/12(月) 2:56 質問[未読]
【47478】Re:ユーザーフォームのリストボックスから... Blue 07/3/12(月) 8:45 発言[未読]
【47492】Re:ユーザーフォームのリストボックスから... iida 07/3/12(月) 14:06 発言[未読]
【47494】Re:ユーザーフォームのリストボックスから... Blue 07/3/12(月) 14:24 回答[未読]
【47495】Re:ユーザーフォームのリストボックスから... iida 07/3/12(月) 14:33 発言[未読]
【47496】Re:ユーザーフォームのリストボックスから... iida 07/3/12(月) 14:53 お礼[未読]
【47474】ユーザーフォームのリストボックスから記...
質問  iida  - 07/3/12(月) 2:56 -
引用なし
パスワード
   教えて下さい。
ユーザーフォームをモーダレスで立ち上げています
アクティブなセルに既に文字が記入済みの場合（無い場合もあります）
この文字列にプラスして書込をしたいのですが
出来るのでしょうか？
出来るとすればどんなコードに変更すればよいのでしょうか？
よろしくお願いします。

Private Sub UserForm_Initialize()
　　ListBox1.ColumnCount = 2
　　ListBox1.RowSource = Sheets("sheet1"). _
　　Range(Range("AK1"), Range("AK1").End(xlDown)).Address
　　ListBox1.TextColumn = 1
　　ActiveCell.Value = ListBox1.Value
End Sub
【47478】Re:ユーザーフォームのリストボックスか...
発言  Blue  - 07/3/12(月) 8:45 -
引用なし
パスワード
   ActiveCell.Value = ActiveCell.Value & ListBox1.Value

ってこと？
(A = 1, B = 2のとき
A = B (Aは1)
ではなく
A = A + B (Aは3)
ということ。(今回は文字列の結合のため&演算子を使っている))
【47492】Re:ユーザーフォームのリストボックスか...
発言  iida  - 07/3/12(月) 14:06 -
引用なし
パスワード
   ▼Blue さん：
ありがとうございます。
文字列はバッチリでした。

ちなみに数値の場合
仮にセルに5が入力されており
+10を足すことは可能ですか。
何度もすみません今後の参考したいので
よろしくお願いします。
>ActiveCell.Value = ActiveCell.Value & ListBox1.Value
>
>ってこと？
>(A = 1, B = 2のとき
>A = B (Aは1)
>ではなく
>A = A + B (Aは3)
>ということ。(今回は文字列の結合のため&演算子を使っている))
【47494】Re:ユーザーフォームのリストボックスか...
回答  Blue  - 07/3/12(月) 14:24 -
引用なし
パスワード
   ▼iida さん：
>ちなみに数値の場合
>仮にセルに5が入力されており
>+10を足すことは可能ですか。

ActiveCell.Value = ActiveCell.Value + 10


必要に応じて Val 関数を使ったりします。

ActiveCell.Value = Val(ActiveCell.Value) + 10

とか

ActiveCell.Value = ActiveCell.Value + Val(ListBox1.Value)

とか。
【47495】Re:ユーザーフォームのリストボックスか...
発言  iida  - 07/3/12(月) 14:33 -
引用なし
パスワード
   ▼Blue さん：
早速ありがとうございます。
掛け算*　割り算/では下記で実行してみましたが
Valではできませんか？
ActiveCell.Value = ActiveCell.Value * Val(ListBox1.Value)
　
>>ちなみに数値の場合
>>仮にセルに5が入力されており
>>+10を足すことは可能ですか。
>
>ActiveCell.Value = ActiveCell.Value + 10
>
>
>必要に応じて Val 関数を使ったりします。
>
>ActiveCell.Value = Val(ActiveCell.Value) + 10
>
>とか
>
>ActiveCell.Value = ActiveCell.Value + Val(ListBox1.Value)
>
>とか。
【47496】Re:ユーザーフォームのリストボックスか...
お礼  iida  - 07/3/12(月) 14:53 -
引用なし
パスワード
   ▼Blue さん：
お騒がせしました
Val関数でできてました
本当にありがとうございました。
またお願いします。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6047 / 13645 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free