machaxx

2020/11/10 11:29

77回答

Excel クリックで〇を付けたい。

Excel クリックで〇を付けたい。 Excelですでに文字が入っているセルをクリックすると〇が付くようにしたいのですが、そのようなことは可能なのでしょうか？ 評価シートで、評価欄には文字が入っています。 セルH9に【大変良い 10】 セルI9に【やや良い 8】 セルJ9に【普通 6】 セルK9に【やや悪い 4】 セルL9に【悪い 2】 と【】内の文言が入っています。（強制改行で） その文字が入っているセルをクリックするとそのセルに〇が付くようにとかって可能なのでしょうか？※入力されている文言は消えないように 今は図形の〇を上に置いていっている状態なのですが、何枚もあり、項目も多数ある為効率化が出来ないかと聞かれましたが、私の知識では不可能ではないかと思っています…。 出来たら最高なのですが。。 また、セルM9にどこを選択したかによって数値が自動入力されるようにもしたいのですが、合わせて設定することは可能でしょうか？ 例えば、 セルH9の大変良いをクリックしたら、セルH9に文言が消えずに〇が付き、セルM9に【10】と自動で入るようにしたいです。 関数でもVBAでも何でも構いません。 お分かりになる方ぜひご教授お願い致します。

Excel | Visual Basic・586閲覧・xmlns="http://www.w3.org/2000/svg">50

ベストアンサー

0

ID非公開

2020/11/10 11:58

出来ますが、クリックでなくダブルクリックの方が運用上便利だと思います。 最初の回答者の方への返信画像を見ると、B列からG列になっていて質問文と列が違うのですが、どちらが正しいのですか？

machaxx

質問者

2020/11/10 12:01

新しく作成した表（見本）なのでセルの場所はどちらでも大丈夫です。（質問の文章内が本来のファイルのセル番号ですが並び順は変わってませんのでその辺は対応できます） ダブルクリックでも何ら問題ありません！ なんせ、移動や手打ちと言う動作を無くしたい感じです。

ThanksImg質問者からのお礼コメント

皆さま本当にありがとうございました。 かなり業務の負担軽減、効率化が出来ました。 この度は大変な質問だっただけにBA悩みましたがこちらにさせていただきます。 ありがとうございました。

お礼日時：2020/11/10 17:55

その他の回答（6件）

0

gla********

2020/11/10 14:03

回答ではありませんが、テストで図のようなことを試してみました。丸はダブルクリックで５個まで色を変えて作成します。まだ、実験段階ですが、参考まで。また、丸を作成した所の番号をH6に書き出しています。

画像
0

PSX

2020/11/10 13:24

'シートモジュールにコピペしてください。ダブルクリックで〇印作成 '○印を付ける（○印の拡大率、太さ、色を調整可） Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) Dim ritsu As Single Dim myS As Shape ritsu = 1.2 '○印の拡大率 With ActiveCell Set myS = ActiveSheet.Shapes.AddShape(msoShapeOval, _ .Left - (.Width * ritsu - .Width) / 2, _ .Top - (.Height * ritsu - .Height) / 2, _ .Width * ritsu, .Height * ritsu) End With myS.Line.Weight = 1.5 '線の太さ myS.Line.ForeColor.RGB = RGB(0, 0, 0) '線の色 myS.Fill.Visible = msoFalse '透明に Cancel = True End Sub

画像
0

関数は苦手

カテゴリマスター

2020/11/10 12:41

うーん、主訴がいまいちよく判りませんが、 他の方への返答を見る限りこういう事なんですかね(´・ω・) 1.G4以降のG列をダブルクリックした場合 2.(10-ダブルクリックしたセルの内容)÷2の列を戻ったセルが対象 例) [10-6(の入力がある)] ÷ 2 = 2 つまりG列から2列戻る→D列 3.そのセルに〇の図形を被せる Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Intersect(Target, Range("G4:G100")) Is Nothing Then Exit Sub Cancel = True Dim x, y, z Dim a As Range Set a = Target.Offset(0, (Target.Value - 10) / 2 - 1) x = a.Width y = a.Height z = IIf(x > y, y, x) x = a.Top + (a.Height - z) / 2 y = a.Left + (a.Width - z) / 2 ActiveSheet.Shapes.AddShape(Type:=msoShapeOval, _ Top:=x, Left:=y, Width:=z, Height:=z).Select With Selection.ShapeRange .Fill.Visible = msoFalse .Line.Visible = msoTrue .Line.ForeColor.RGB = RGB(0, 0, 0) .Line.Weight = 1 End With End Sub ＞また、セルM9にどこを選択したかによって 先の質問とリンクする内容ですか？それとも全く別の話でしょうか。どちらにしても意味が不明なのでスルーします。

画像

machaxx

質問者

2020/11/10 13:30

ありがとうございます。 コピペして試してみたのですが、どこのセルをダブルクリックしても〇が出てきません…何故でしょう（泣） M9に〇をつけたセルに対応する評価数値を反映させたいので、添付頂いた画像から読み取るに、VBAのRange("G4:G100")の部分をM列に変更するだけで大丈夫ですよね？ 変更しても変更しなくても作動しません… （ファイルはExcel2016、マクロ有効ブックにて行っております）

0

Ernesti

カテゴリマスター

2020/11/10 11:47

う～ん……「ワンクリックで○印を『重ねて』表示する」のはおそらく不可能かと^^; 「今は図形の〇を上に置いていっている状態」とのことですが、見た目が多少変わっても問題ないのであれば、 【大変良い 10】→【大変良い ⑩】 のように「数字部分だけ入力し直して『丸付き数字』に変換してしまう」という方法のほうが「図形の○を置くのに位置を微調整する」という手間を考えれば幾らか早いかと思いますよ^^ 後者については確か関数でできたかと思われますが、私はExcel関数をほとんど使いこなせないので、どなたか詳しい方が回答してくださることをお祈りするくらいしかできません^^;ゞ

machaxx

質問者

2020/11/10 11:50

ありがとうございます。 どうにか出来ると良いのですが、個人的にもなかなか難しい問題だと思っています。。。 何回もするものなのでいちいち変換するのなら、〇を移動させる方が早いと思うんですよね… 見た目的にもすぐどこが該当しているのか分からないので… 現状で行くしかないのでしょうかね。(´;ω;｀)

12次へ

6件