エクセルの学校：全文検索：Hyper Estraier：入力規則

Results of 1 - 1 of about 2818 for 入力規則 (0.005 sec.)

[[20071025131400]]: #score: 4284; @digest: 7bc18800d16eeae61661b8bf27492f00; @id: 33998; @mdate: 2007-10-25T06:35:39Z; @size: 2498; @type: text/plain; #keywords: wordin (45725), 字. (25798), msocontrolbutton (16056), faceid (12727), 力文 (12292), mybutton (9733), onaction (8740), 象ca (6766), actioncontrol (5713), controls (4467), msobarpopup (4200), caption (4054), 字7 (3778), ・拡 (3598), showpopup (3401), 応マ (3133), 字6 (3082), 字5 (2945), ク選 (2655), temporary (2480), ス右 (2431), 拡大 (2335), 字4 (2202), ルsu (2067), ルpr (2050), commandbars (2035), 字3 (1994), 動・ (1920), ンリ (1612), 字2 (1612), position (1462), 字1 (1453); 『移動・拡大可能なプルダウンリストの作成』（くま）
いつも参考にさせていただいています。ありがとうございます。通常のプルダウンリストは作成できるのですが、クリック選択して、拡大したり、移動できるプルダウンリストはどのように作成すればよいのでしょうか? よろしくお願いします。 ---- 普通の入力規則でも移動できると思いますが。選択した文字も一緒に移動しますけど。拡大は、メニューバーのズームで全体を大きくしてやるとか。一応マクロでの別な方法（マウス右クリック）後は、必要に応じて入力文字の増減、編集をしてください。編集しやすい?ように書いたつもりです。（取りあえず候補は7つ）マクロが使えなかったら捨ててください。 BJ 標準モジュール Sub Wordin() Set myButton = Application.CommandBars.ActionControl ActiveCell.Value = myButton.Caption Set myButton = Nothing End Sub シートモジュール Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Dim ListRng As Range If Target.Count <> 1 Then Exit Sub If Target.Column <> 1 Then Exit Sub 'A列だけ対象 Cancel = True Application.ScreenUpdating = True With Application.CommandBars.Add(Position:=msoBarPopup, temporary:=True) With .Controls.Add(Type:=msoControlButton) .Caption = "入力文字1" '←入力する文字 .FaceId = 59 .OnAction = "Wordin" End With With .Controls.Add(Type:=msoControlButton) .Caption = "入力文字2" '←入力する文字 .FaceId = 59 .OnAction = "Wordin" End With With .Controls.Add(Type:=msoControlButton) .Caption = "入力文字3" '←入力する文字 .FaceId = 59 .OnAction = "Wordin" End With With .Controls.Add(Type:=msoControlButton) .Caption = "入力文字4" '←入力する文字 .FaceId = 59 .OnAction = "Wordin" End With With .Controls.Add(Type:=msoControlButton) .Caption = "入力文字5" '←入力する文字 .FaceId = 59 .OnAction = "Wordin" End With With .Controls.Add(Type:=msoControlButton) .Caption = "入力文字6" '←入力する文字 .FaceId = 59 .OnAction = "Wordin" End With With .Controls.Add(Type:=msoControlButton) .Caption = "入力文字7" '←入力する文字 .FaceId = 59 .OnAction = "Wordin" End With .ShowPopup .Delete End With Application.ScreenUpdating = False End Sub ...; https://www.excel.studio-kazu.jp/wiki/kazuwiki/200710/20071025131400.txt - [detail] - similar

PREV NEXT

訪問者：カウンタ