Excel VBA質問箱 IV

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

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


6048 / 13646 ツリー ←次へ | 前へ→

【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関数でできてました
本当にありがとうございました。
またお願いします。

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