Excel VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6740 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【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

ちょっと勘違いしてました。バッチリできました。
ありがとうございました！
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
6740 / 13644 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
2610219
(SS)C-BOARD v3.8 is Free