Results of 1 - 1 of about 27284 for マクロ (0.013 sec.)
- [[20220616160855]]
- #score: 2168
- @digest: 445caf9842acdc8b829452ea64dfcd97
- @id: 91580
- @mdate: 2022-06-20T06:51:52Z
- @size: 1903
- @type: text/plain
- #keywords: dicdate (34535), arraydata (22494), 0000006 (12544), 須op (7748), 索場 (5559), endrow (4063), 分対 (3476), 空文 (2256), 得wi (2142), ーッ (2093), 部品 (1972), start (1740), 全シ (1503), 列4 (1388), ーゲ (1375), 定se (1274), ・検 (1217), ゲー (1188), 完結 (1112), ベス (844), 必須 (721), target (650), const (601), 品名 (600), dictionary (577), ルシ (554), data (543), 検索 (526), column (523), 存在 (450), exists (433), integer (432)
- 『全シートを検索』（ふわ）
お願いします。 シート「マスタ」のB列の4行目から部品名が記載されています。 この部品名が他の全シートにあるかないか確認したいです。 他のシートもB列4行目からデータがあります。 部品名があればmsgboxを表示できるようにできますか? ネットで検索して見つけたのですがこの場合はターゲーットが 1つしかないのでどう手を加えてよいのかわかりません。 お願いします。 '変数の宣言を必須 Option Explicit Sub Sample() Const TARGET_SHEET_NAME As String = "サンプルシート" Const TARGET_COLUMN As Integer = 2 Const START_ROW As Integer = 3 Dim endRow As Double Dim arrayData As Variant Dim data As Variant Dim dicDate As Object '最終行を取得 endRow = Cells(START_ROW, TARGET_COLUMN).End(xlDown).Row '1列分のデータを取得 With Worksheets(TARGET_SHEET_NAME) arrayData = Range(.Cells(START_ROW, TARGET_COLUMN), _ .Cells(endRow, TARGET_COLUMN)) End With 'DictionaryのKeyに設定。Valueには空文字を設定 Set dicDate = CreateObject("Scripting.Dictionary") For Each data In arrayData If Not dicDate.Exists(data) Then dicDate.Add data, "" End If Next '特定の値の存在確認 If dicDate.Exists("0000006") Then MsgBox "0000006が存在しました" End If End Sub ＜ 使用 Excel:unknown、使用 OS:Windows10 ＞ ---- Ctrl+F 検索場所 ブックで検索してみては。 理解出来ないVBAを使うより、よっぽど有意義では。 （tkit） 2022/06/16(木) 16:50 ---- Excelに備わった機能を使うことで十分対応できます。 ・検索場所を「ブック」にして ・「すべて検索」をクリックして実行 これがベストでしょう。 結果が一覧で表示され、クリックでワークシートの該当セルにジャンプできます。 （γ） 2022/06/16(木) 16:56 ---- すいません。 VBAで完結しました。ありがとうございました。 （ふわ） 2022/06/20(月) 15:51... - http://www.excel.studio-kazu.jp/wiki/kazuwiki/202206/20220616160855.txt - [detail] - similar
PREV
NEXT
Powered by Hyper Estraier 1.4.13, with 97032 documents and 608010 words.
訪問者：