Results of 1 - 1 of about 33 for 選択 セル 目立たせる (0.024 sec.)
選択 (24685), セル (67549), 目立たせる (54)
- [[20040329120958]]
- #score: 11245
- @digest: eeadc3c574fcee874a7d7eadc78c6ad3
- @id: 5916
- @mdate: 2004-03-30T13:21:19Z
- @size: 2567
- @type: text/plain
- #keywords: 少メ (7380), 郎先 (7299), 弟子 (6044), コ] (5832), 数的 (4781), 西弁 (4777), レ? (4741), や無 (3920), 先生 (3738), 変? (3722), 上問 (3237), 投入 (3216), 囲名 (3154), 切使 (2797), 定名 (2579), ケン (2137), 弥太 (2090), 消費 (1528), maxrow (1514), 関西 (1503), 用上 (1459), フウ (1437), ト記 (1437), 生ま (1284), a65536 (1215), 生の (931), 実用 (902), 一切 (839), 列方 (827), 太郎 (821), (ケ (812), アレ (786)
- 『投入した数値にてセルの選択』(aki)
下記の様にA列に数字が入っていて、A1に例えば、 7と投入したら、7の数値の入っているセルを選択させる にはどうしたら良いでしょうか?お教え下さい。 A B C D 1 2 3 1 4 2 5 3 6 4 7 5 8 6 9 7 ---- こんちわ。 こんなんどうでっか? 別に数字や無うても反応します。 「Alt」+「F11」でVBEを開く プロジェクト欄のSheet1をWクリック 下のコードをコピペ 「Alt]+「Q」でエクセルに戻る A2から列方向に適当なデータを入れる A1に検索すべくデータを入力してみて下さい。 どうでっか?ポインターが思うたセルに飛んでまっしゃろ? ほな...(弥太郎) '-------------------------------- Private Sub Worksheet_Change(ByVal Target As Range) Dim maxrow As Long Dim c If Target.Count > 1 Then Exit Sub If Target.Address <> "$A$1" Then Exit Sub maxrow = [a65536].End(xlUp).Row For Each c In Range("a2:a" & maxrow) If c = [a1] Then c.Select Exit Sub End If Next c MsgBox "該当するデータが見あたりません" End Sub ---- へ〜。range("a65536")を[a65536]と出来るんですね。ふむふむ。(ケン) ---- はい、これは別にShiftキーを使わなくともいけますから、私のマクロは全てこの 方式で書いてます。 この学校ではそんな裏技?(や無いか)でなくてオーソドックスにRangeでカキコ してますけど、指先のエネルギー消費量からすれば断然[a1]です、ハイ。 進境著しいVBA先生へ(弥太郎) ---- なるほど、勉強になります。有難う御座います。 (ケン)何で関西弁じゃないんやろ〜?何か変? ---- hai, 私はVBAの先生の先生ですから、はしたない言葉は一切使いまへん。(アレ?) VBAの先生の先生(先に生まれただけ)の(弥太郎) ---- 弥太郎先生また教えてくださいね。 弟子の(ケン) ---- おはようございます。 レス遅くなってしまいました。その間にケンさんと 盛り上がっているとは。。弥太郎先生のおかげで希望のセルに 飛びました!!!ありがとうございました。 丁寧に教えていただいたのに、朝なのでボ〜としていて危うく 標準モジュールにコピペしそうになりました。。フウ〜 これからも弟子のケンさん共々宜しくお願いします。 (aki) ---- 範囲名を[カッコ]で囲むやり方はショートカット記述です。 Rangeプロパティでの取得より多少メモリを消費する「らしい」 のですが、実用上問題はないようです。確定名なので、定数的 に使うときは便利でしょうね。 逆にRange("A" & n )のような変数的な書き方ができません。 私の場合、シート側で設定されてる名前を目立たせるために [範囲名]で書くときはありますね。 (KAMIYA) ---- ほえ〜。範囲名まで・・・KAMIYA師匠、勉強指してもらいました。 有難う御座います。(ケン) ...
-
http://www.excel.studio-kazu.jp/wiki/kazuwiki/200403/20040329120958.txt
- [detail]
- similar
PREV
NEXT
Powered by
Hyper Estraier 1.4.13, with 97017 documents and 608140 words.
訪問者: