Results of 1 - 1 of about 14729 for VBA�������������� (0.003 sec.)
- [[20050809140506]]
- #score: 3408
- @digest: 1aa88c27f81e82744a58669f0bd9632f
- @id: 16090
- @mdate: 2005-08-09T06:05:55Z
- @size: 1449
- @type: text/plain
- #keywords: 考vb (13911), 超vb (7815), 純入 (7815), 色致 (7815), 加色 (7438), 々ca (7179), 発色 (6272), 動物 (6267), 動加 (4927), colr (4677), 元) (3453), 一元 (3244), 新井 (3225), 録方 (2788), 境: (2059), 用環 (1900), 記参 (1777), 色番 (1474), 言di (1435), モデ (1392), デル (1350), モジ (1138), ジュ (1088), 準モ (1019), 個以 (895), 数宣 (814), case (730), トモ (722), 標準 (679), ュー (647), ル1 (489), target (487)
- 『3個以上の条件付書式のVBAについて』（新井）
VLOOKUPを使って、動物を検索しこの動物に色を自動加色したいのですが、以下のVBAでは動物の単純入力では上手くいきますが、VLOOKUPでは上手く発色致しません。どうすればよいでしょうか。 使用環境:Excel2000/WindowsXP 参考VBA Private Sub Worksheet_Change(ByVal Target As Range) '変数宣言 Dim colr As Integer Dim c As Variant If Target.Count > 1 Then Exit Sub If Target.Column < 1 Then Exit Sub For Each c In Target Select Case c.Value Case "さる" colr = 3 'ここの色番号をお好きなように Case "くま" colr = 5 '々 Case "とり" colr = 6 '々 Case "いぬ" colr = 4 '々 Case "ねこ" colr = 8 '々 Case "あゆ" colr = 7 '々 Case Else colr = xlNone End Select c.Interior.ColorIndex = colr Next c End Sub ---- 予め式をいれておくというのではイベントは起こりませんからね。 シートモジュールではなく標準モジュールで作成されたらいいと思いますが。 (一元) ---- シートモジュールと標準モジュールって何ですか? ちなみに僕は超VBA初心者です。標準モジュールでの記録方法を教えてください。 ---- 標準モジュールのモデル1に上記参考VBAを張り付けたのですが全く動きません。ご教授お願いします。... - https://www.excel.studio-kazu.jp/wiki/kazuwiki/200508/20050809140506.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97037 documents and 608190 words.
訪問者：