Excel VBA質問箱 IV

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

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


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

【43426】チェックボックスの使い方 ミーナ 06/10/14(土) 14:24 質問[未読]
【43427】Re:チェックボックスの使い方 [名前なし] 06/10/14(土) 14:35 回答[未読]
【43428】Re:チェックボックスの使い方 ミーナ 06/10/14(土) 14:41 質問[未読]
【43429】Re:チェックボックスの使い方 [名前なし] 06/10/14(土) 15:02 回答[未読]
【43430】Re:チェックボックスの使い方 ミーナ 06/10/14(土) 15:44 お礼[未読]

【43426】チェックボックスの使い方
質問  ミーナ  - 06/10/14(土) 14:24 -

引用なし
パスワード
   新作チェックというチェックボックスにチェックを入れると
題名というテキストボックスに入力された文字に「★」を追加し、
チェックが入っていない場合は題名のまま入力したいです。

If 新作チェック = True Then
Selection.Offset(, 17) = 入力6 '←ここに★を追加したいです
End If
If 新作チェック = False Then
Selection.Offset(, 17) = 入力6
End If

どのようにすればいいのか教えてください。よろしくお願いします。

【43427】Re:チェックボックスの使い方
回答  [名前なし]  - 06/10/14(土) 14:35 -

引用なし
パスワード
   ▼ミーナ さん:
>新作チェックというチェックボックスにチェックを入れると
>題名というテキストボックスに入力された文字に「★」を追加し、
>チェックが入っていない場合は題名のまま入力したいです。
>
> If 新作チェック = True Then
>Selection.Offset(, 17) = 入力6 '←ここに★を追加したいです
>End If
> If 新作チェック = False Then
> Selection.Offset(, 17) = 入力6
> End If
>
>どのようにすればいいのか教えてください。よろしくお願いします。

Selection.Offset(, 17) = "★" & 入力6

【43428】Re:チェックボックスの使い方
質問  ミーナ  - 06/10/14(土) 14:41 -

引用なし
パスワード
   >Selection.Offset(, 17) = "★" & 入力6

ありがとうございます。
やってみたのですが、入力6の文字しか反映されません。なぜでしょうか・・・

【43429】Re:チェックボックスの使い方
回答  [名前なし]  - 06/10/14(土) 15:02 -

引用なし
パスワード
   ▼ミーナ さん:
>>Selection.Offset(, 17) = "★" & 入力6
>
>ありがとうございます。
>やってみたのですが、入力6の文字しか反映されません。なぜでしょうか・・・

If 新作チェック = True Then
Selection.Offset(, 17) = "★" & 入力6
Else
Selection.Offset(, 17) = "☆" & 入力6
End If

【43430】Re:チェックボックスの使い方
お礼  ミーナ  - 06/10/14(土) 15:44 -

引用なし
パスワード
   ▼[名前なし] さん:
>▼ミーナ さん:
>>>Selection.Offset(, 17) = "★" & 入力6
>>
>>ありがとうございます。
>>やってみたのですが、入力6の文字しか反映されません。なぜでしょうか・・・
>
>If 新作チェック = True Then
>Selection.Offset(, 17) = "★" & 入力6
>Else
>Selection.Offset(, 17) = "☆" & 入力6
>End If

ちょっと勘違いしてました。バッチリできました。
ありがとうございました!

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