Results of 1 - 1 of about 7928 for VLOOKUP (0.002 sec.)
- [[20230203101432]]
- #score: 3346
- @digest: e8fb55fa80f2d3fc16cff1c41814b52d
- @id: 93421
- @mdate: 2023-02-03T02:53:26Z
- @size: 3468
- @type: text/plain
- #keywords: columndifferences (8696), kai (5412), onkey (4005), 向キ (2431), （fa (1689), beforerightclick (1213), 2023 (1206), ル領 (1198), ブセ (1058), 領域 (1047), 終セ (1045), クテ (1026), メソ (988), 金) (965), ・ω (947), ィブ (942), ・` (913), ソッ (885), イミ (851), xldown (842), アク (840), shift (839), ミン (803), トッ (780), 域の (760), cancel (755), ctrl (717), ッド (670), activecell (609), ャン (576), ティ (572), boolean (551)
- 『スクロールする際、数値が変わったタイミングでストップする機能があるか知りたい』（famnak）
スクロールする際、数値が変わったタイミングでストップする機能があるか知りたいです。 Ctrl+shift+↓を使用すると空白セルと入力セルの境界までジャンプしますが、同じようなコマンドはないでしょうか。 たとえば 1 1 2 3 の並びの行があったとして、現在一番上の1を選択していたとします。 この時Ctrl+shift+↓を使用すると3に飛びます。 これを2で止まるようにしたいのですが、そんな方法ありますか。 教えてくれると嬉しいです。 ＜ 使用 Excel:Microsoft365、使用 OS:Windows10 ＞ ---- 例えば右クリックするとそんな感じになるマクロとかどうっすか? Private Sub Worksheet_BeforeRightClick(ByVal Target As Range, Cancel As Boolean) Dim r As Range For Each r In Range(Target, Target.End(xlDown)) If Target.Value <> r.Value Then r.Activate Cancel = True Exit Sub End If Next r End Sub エラー処理してないので、実際に動かしてみ実用できそうなら、もう少し肉付けします。 （稲葉） 2023/02/03(金) 10:26:54 ---- 衝突しましたがそのままアップします。 無いと思います。 Onkeyメソッドでショートカットキーに マクロを割り付ける、ということなら 可能かもしれませんが。 （MK） 2023/02/03(金) 10:29:14 ---- Ctrl + 方向キー は、アクティブセル領域の最終セルまで移動 で、 これに Shiftキーも同時に押すことで、領域の選択になるんです 言葉の説明ではジャンプですけど、やっていることは Ctrl+shift+↓ で領域を選択なので、ほんとにやりたいのはどっちなんでしょう ちなみに 、Ctrl+shift+↓ したあと Ctrl+G 押してセル選択で、アクティブ列との相違 Ctrl+shift+↓ Ctrl+G Alt+S Alt+M Enter とかどうでしょう 私は、左手キーボード、右手マウス でやってます （´・ω・`） 2023/02/03(金) 10:39:54 ---- Onkeyメソッドを使ったサンプルを書いておきます。 設定方法などはネット検索してみてください。 'ThisWorkbookモジュール Private Sub Workbook_Open() Application.OnKey "^y", "douti" 'Ctrl+y End Sub Private Sub Workbook_BeforeClose(Cancel As Boolean) Application.OnKey "^y" End Sub '標準モジュール Sub douti() Dim kai As Range Dim shu As Range Dim c As Range Set kai = ActiveCell If kai.Value = "" Then Set kai = Nothing Exit Sub End If Set shu = kai.End(xlDown) For Each c In Range(kai.Offset(1), shu) If c.Value <> c.Offset(-1).Value Then c.Select Exit For ElseIf c = shu Then c.Select End If Next c Set kai = Nothing Set shu = Nothing End Sub （MK） 2023/02/03(金) 11:12:15 ---- 1 1 2 3 がA列にあるとし、 A1?の最初の位置でなんからのマクロを実行し、 アクティブセルの値をA2以降から検索して 異なっていればそこをアクティブにして停止。 みたいなマクロを組めばどうでしょう? （初心者） 2023/02/03(金) 11:15:20 ---- ありがとうございます。 mkさんのマクロでやりたいことができました。 救っていただき感謝しかない! （famnak） 2023/02/03(金) 11:35:23 ---- 解決済みのようですが、私の書いた作業をマクロの記録して、ちょと修正したものがこちらです Sub sample() Range(Selection, Selection.End(xlDown)).ColumnDifferences(ActiveCell).Cells(1, 1).Select End Sub （´・ω・`） 2023/02/03(金) 11:47:16 ---- ColumnDifferencesというのがあるのですね。 勉強になります。 Onkeyメソッドを紹介しましたが、右クリックメニュー に追加する、という方法もあります。 参考まで。 https://excel-excellent-technics.com/excel-vba-addrightclickmenu-8675 （MK） 2023/02/03(金) 11:53:26... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/202302/20230203101432.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97032 documents and 608003 words.
訪問者：