エクセルでこんな事出来ますか？

質問

チェックボックスってレ点しか入りませんよね。
他の文字って入らないでしょうか？
もし、それでだめなら、
オートシェイプの図形の四角の中に
英数字やら記号を一文字だけ入れるってことが出来ますか？

回答No.4

imogasi · ベストアンサー

#3です。
＞空白とＡ，Ｂ，Ｃ，Ｄ，Ｅ，Ｆ，Ｇとクリックするたび変わると一番助かるのですが、
シートに１文字分の、シェイプの小さい四角を１つ貼りつける。
下記はＶＢＥの標準モジュールに貼りつける.
Shapes("Rectangle 1").のRectangle 1は自分のケースに合わせて変えてください。
Sub test01()
a = Array("", "A", "B", "C", "D", "E", "F", "G")

ActiveSheet.Shapes("Rectangle 1").Select
c = Selection.Characters.Text
If Left(c, 1) = a(UBound(a)) Then
Selection.Characters.Text = ""
Else
For i = 0 To UBound(a) - 1
If Left(c, 1) = a(i) Then
Selection.Characters.Text = a(i + 1)
Exit For
End If
Next i
End If
Cells(1, 1).Select
End Sub
するとシート上の四角をクリックすると空白->A->B->C・・とクリックのたびごとに次ぎへ変化します。
ただこんな働きはリストボックスの機能を使うべきかと思ったりしますが、目的がわからず、取りあえず。テスト済み。

回答No.3

imogasi

シートにシェイプの小さい四角を１つ貼りつける。
下記はＶＢＥの標準モジュールに貼りつける.
Shapes("Rectangle 8").のRectangle 8は自分のケースに合わせて変えてください。
Sub test01()
ActiveSheet.Shapes("Rectangle 8").Select
If Selection.Characters.Text = "A" Then
Selection.Characters.Text = ""
Else
Selection.Characters.Text = "A"
End If
Cells(1, 1).Select
End Sub
右クリックしてでる、マクロの登録で、下記test01を
登録する。
するとシート上の四角をクリックするとＡと空白が
クリックのたびごとに変化します。
チェックボックスの機能の代替としてやって見ました。
こんな問題じゃないのでしょうか？

補足

いえいえ、それが出来るととてもありがたいのですが、
私の場合空白とＡ以外に５個選択肢があるのです。
ですから、空白とＡ，Ｂ，Ｃ，Ｄ，Ｅ，Ｆ，Ｇとクリックするたび変わると一番助かるのですが、
そんなにわがままはエクセルにはきかないでしょうね

回答No.2

noname#148473

＃１です。

オートシェイプ内のフォントを変更するには、セルに入力したフォントを変更する場合と異なり、変更したいフォントを選択（マウスで選択したい文字列の上をドラッグ）する必要があります。Wordと同じ要領と言ったほうが分かりやすいでしょうか。

また、オートシェイプには自動的に余白が設定されていますので、余白をゼロにすれば、文字を記入できる面積がいくらか広がります。オートシェイプの枠線の上でダブルクリックすると、オートシェイプの書式設定が開きますので、余白タブをクリックし、余白の設定を変更すると良いでしょう。

うまくいきましたでしょうか？？

お礼

いきました、いきました。
ありがとうございます。
でも、入力するのが面倒ですねぇ。
がんばろっと

回答No.1

noname#148473

＞チェックボックスってレ点しか入りませんよね。
＞他の文字って入らないでしょうか？

残念ながら入らないです。

＞オートシェイプの図形の四角の中に
＞英数字やら記号を一文字だけ入れるってことが出来ますか？

作成した図形を右クリックし「テキストの追加」を選べば、可能です。

補足

できました。ありがとうございます。
でも、オートシェイプで作った図形が小さいのか、
字が入りきりません。
オートシェイプ内の字のフォントってどうやって変えたらいいんでしょうか？
さっきからやってるんですけど、どうにもならなくて・・