• ベストアンサー

エクセルで

エクセルで、セルをダブルクリックするだけで「レ印」が入力されるようにしたいんですけど・・・。出来るのでしょうか?

質問者が選んだベストアンサー

  • ベストアンサー
回答No.3

エクセル2000で試しました。 1.設定したいシートタブを右クリックします。 2.コードの表示(V)を選択。 3.VisualBasicEditor画面が表示されます。 4.上記画面右側の白い欄に下記コードをコピー&ペースト。 Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Target.Value = "レ" End Sub これでお望みのとおりになります。 もし作動しない場合はマクロが無効になっていると思われますので起動時に有効に設定してください。

tsurushin
質問者

お礼

大変参考になりました。ありがとうございます。

その他の回答 (3)

  • imogasi
  • ベストアンサー率27% (4737/17069)
回答No.4

●VBAの仕掛けを使うのは難しいと思うし、アンケート用紙のように、チェックボックスを多数セルに設ける場合はLinkedCellの設定を1つづつ設定が必要で、面倒です。 (数行のVBAコードで出来る方法あれば、私も教えて欲しいぐらい) LinkedCellを使わないと更にVBAの難しい知識がいる。 ●それでデータ-入力規則-リストを使うことをお勧めします。 「元の値」ですが、Vと半角カンマと1スペースを入れてください。スペース出なく空白にしたいが、""と入れても, ""が出てきてしまいます。(セルの範囲指定を利用してもよいですが、リスト項目が2つしかないので) レ点についても適当なものが思い出せないのでVと書いてます。 「はい、いいえ」に表現する方法は後述。 ●コントロールを貼りつける方法 メニュー余白部で右クリックしコントロールツールボックスをクリック。コントロールツールボックスの中から□の中にVの入ったアイコンをクリックしシートのセルに貼りつける。デザインモードの状態で右クリックし、「プロパティ」を選び、LinkedCellの行にD1とかセル番地を入れる。 これを1つのチェックボックスに1回ずつ繰り返す。 デザインモードを脱すると、チェックボックスをクリック すると、リンクしたセルにチェックボックスの値(True、False)がセットされる。「はい、いいえ」にするには関数を使って変える必要あり。=IF(D1,"はい","いいえ")(D1=TRUEのTRUEは不要)

tsurushin
質問者

お礼

詳しく説明して頂きありがとうございます。参考にします

  • mshr1962
  • ベストアンサー率39% (7417/18945)
回答No.2

セルで行う場合は、マクロになりますね。 「表示」「ツールバー」の「フォーム」または「コントロールツールボックス」に 「チェックボックス」があるので、これを選択して配置の方が楽です。 ※コントロールツールボックスのものはデザインの終了(青い三角定規のあるボタン)を クリックすることで設定が有効になります。 名称など変更時はデザインモードで行ってください。 フォームの方はそのまま利用できます。 選択方式でいいなら入力規則を使う方法もあります。 「データ」「入力規則」で入力値の種類を「リスト」で 元の値に「レ, 」 とすればセルの選択時に▼ボタンが表示されます。 ▼を押すと元の値の内容を選択できます。

tsurushin
質問者

お礼

ありがとうございました。参考にします

  • yumi22
  • ベストアンサー率15% (6/39)
回答No.1

おはようございます。 ダブルクリックするだけで出来るかどうかはわからないのですが、フォームを使うとレ印のチェックを入れたり外したりできる様になります。

tsurushin
質問者

お礼

ありがとうございました。参考にします

関連するQ&A