トップに関する質問【Excel VBA】一致検索、検索後の値が一致していたら値の変換転記したい

編集履歴

質問編集履歴

画像差し替え

2019/03/14 08:38

投稿

carrin

スコア15

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -356,4 +356,4 @@
 ```
-![イメージ説明](ff2c8811ec9b71450e7bd94988344f3c.jpeg)
+![イメージ説明](87ce324f36888f787855b3985f536918.jpeg)

検証③　追記

2019/03/14 08:38

投稿

carrin

スコア15

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -315,3 +315,45 @@
 この状態で実行すると、以下の画像のように抽出される。
+検証③　書式を文字列で設定しても「日付」で抽出されてしまう
+```
+  'CStr 関数は、指定した値を文字列型 (String) に変換する
+       S2.Cells(R, "A").Value = CStr(S2.Cells(R, "A").Value)
+      '「値一致」シートの値を、「値の元」シートのA列と比較して一致していたら
+      If S2.Cells(R, "F").Text = ws.Cells(iRowI, "A").Text Then
+        'S2.Cells(R, "A").Value = ws.Cells(Rows.Count, "A")
+        'その行の値を転記する
+        S2.Cells(R, "A").Value = ws.Cells(iRowI, "A").Value
+'         S2.Cells(R, "A").Value = Format("2019/01/01", "yyyy")
+'         S2.Cells(2, 1).Value = Format("2019/01/01", "yyyy")  '検証①
+'         Range("A2:A100").Value = Format("2019/01/01", "yyyy")  '検証②
+       End If
+```
+![イメージ説明](ff2c8811ec9b71450e7bd94988344f3c.jpeg)

文言の修正・追記

2019/03/14 08:30

投稿

carrin

スコア15

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -258,6 +258,12 @@
 この状態で実行すると、以下の画像のように抽出される。
+参照先の設定を誤っているのか、A1のセルだけ表示がおかしいです。
+元に戻しても、このA2の表示が修正されない。
+引き続きこちらも修正・検証中。
 ![イメージ説明](a44d3516d0c5649b97f5bfc7d3391a68.png)

検証内容を追記

2019/03/14 07:20

投稿

carrin

スコア15

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -209,3 +209,103 @@
 ```
+2019/03/14　上手くいかないので引き続き検証中(備忘録も兼ねてソースを残します)
+検証①
+```
+      '「値一致」シートの値を、「値の元」シートのA列と比較して一致していたら
+      If S2.Cells(R, "F").Text = ws.Cells(iRowI, "A").Text Then
+        'S2.Cells(R, "A").Value = ws.Cells(Rows.Count, "A")
+        'その行の値を転記する
+         S2.Cells(R, "A").Value = ws.Cells(iRowI, "A").Value
+        'CStr 関数は、指定した値を文字列型 (String) に変換する
+         S2.Cells(R, "A").Value = CStr(S2.Cells(R, "A").Value)
+'         S2.Cells(R, "A").Value = Format("2019/01/01", "yyyy")
+         S2.Cells(2, 1).Value = Format("2019/01/01", "yyyy")  '検証①
+'         Range("A2:A30").Value = Format("2019/01/01", "yyyy")  '検証②
+       End If
+```
+(コメント多く読みにくくてすみません)
+この状態で実行すると、以下の画像のように抽出される。
+![イメージ説明](a44d3516d0c5649b97f5bfc7d3391a68.png)
+検証②
+```
+      '「値一致」シートの値を、「値の元」シートのA列と比較して一致していたら
+      If S2.Cells(R, "F").Text = ws.Cells(iRowI, "A").Text Then
+        'S2.Cells(R, "A").Value = ws.Cells(Rows.Count, "A")
+        'その行の値を転記する
+         S2.Cells(R, "A").Value = ws.Cells(iRowI, "A").Value
+        'CStr 関数は、指定した値を文字列型 (String) に変換する
+         S2.Cells(R, "A").Value = CStr(S2.Cells(R, "A").Value)
+'         S2.Cells(R, "A").Value = Format("2019/01/01", "yyyy")
+'         S2.Cells(2, 1).Value = Format("2019/01/01", "yyyy")  '検証①
+         Range("A2:A30").Value = Format("2019/01/01", "yyyy")  '検証②
+       End If
+```
+![イメージ説明](1c638783f479a309e149ba6a20f27a05.jpeg)
+この状態で実行すると、以下の画像のように抽出される。

文言修正

2019/03/14 07:11

投稿

carrin

スコア15

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -110,7 +110,7 @@
-修正したソース(まだ未完成ですが、途中経過です)
+2019/03/13　修正したソースを追記(まだ未完成ですが、途中経過です)
 ```

編集内容反映

2019/03/13 07:38

投稿

carrin

スコア15

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -105,3 +105,107 @@
 値を抽出できないので、やりたいこと②のロジックも
 わかりません。。。
+修正したソース(まだ未完成ですが、途中経過です)
+```
+Sub 編集中()
+Dim S2 As Worksheet
+Dim ws As Worksheet
+Dim R As Long
+'Selection.Value = Selection.Value '(この式は値に変換するという意味らしい)
+    Set S2 = Worksheets("値一致")
+    Set ws = Worksheets("値の元")
+Dim iRowI As Integer    '"値の元"(読み取り)行
+Dim iLastRow As Integer
+    'A列の最終データ行を取得する(年間カレンダーの最終行)
+    iLastRow = ws.Range("A2").SpecialCells(xlLastCell).Row
+    '表示形式を年だけで表示させる
+'Calendar加工"の2行目～最終データ行までループ処理させる
+        For iRowI = 2 To iLastRow
+'"Weeklyシート加工"の"F列"の最後の行になるまで実行させる
+        For R = 2 To S2.Cells(Rows.Count, "F").End(xlUp).Row
+        'If S2.Cells(R, "C").Value = ws.Cells(Rows.Count, "A") Then
+      '「値一致」シートのC列の値を、「値の元」シートのA列と比較して、一致しているか調べてみる
+      If S2.Cells(R, "F").Text = ws.Cells(iRowI, "A").Text Then
+        'S2.Cells(R, "A").Value = ws.Cells(Rows.Count, "A")
+            '「値一致」シートと「値の元」シートで一致していたら、その行の値を転記する
+            S2.Cells(R, "A").Value = ws.Cells(iRowI, "A").Value
+        End If
+        If S2.Cells(R, "A").Value = ws.Cells(iRowI, "A").Value Then
+        ' S2.Cells(R, "A").Value = CStr(S2.Cells(R, "A").Value)　CStr 関数は、指定した値を文字列型 (String) に変換する
+'                S2.Cells(R, "A").Value = ws.Cells(iRowI, "A").Value
+'                S2.Cells(R, "A").Value = Format("2019/01/05", "yyyy")
+'                S2.Cells(R, "A").Value = Format(ws.Cells(S2.Cells(R, "A").Value, "yyyy"))
+        End If
+             '"WK"列の値を表示させる
+         If S2.Cells(R, "F").Text = ws.Cells(iRowI, "A").Text Then
+            S2.Cells(R, "B").Value = ws.Cells(iRowI, "C").Value
+         End If
+         Next R
+    Next
+End Sub
+```

説明文修正

2019/03/13 07:37

投稿

carrin

スコア15

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -50,7 +50,7 @@
-![イメージ説明]![イメージ説明](c69d6f8ff7ba01a3591f3b48026dafce.jpeg)
+[完成させたいイメージ図]![イメージ説明](c69d6f8ff7ba01a3591f3b48026dafce.jpeg)

画像修正、文言修正など

2019/03/12 07:04

投稿

carrin

スコア15

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -14,7 +14,7 @@
-**"値一致シート"**![イメージ説明](356e7eb68879b024c03841c6fe04b741.jpeg)
+**"値一致シート"**![イメージ説明](6fc74f4953342fa2ecf9af9f6063b63e.jpeg)
 **"値の元"シート**![イメージ説明](78a76fe26ab797038107e50f36e72531.jpeg)
@@ -40,7 +40,17 @@
 "値の元"シートのC列の"WK表示"の値を、"値一致シート"のB列に転記させたいです。
-例えば、"19.01.05"なら"WK 01"、"2019/1/22"なら"WK 04"
+例えば、"19.01.05"なら"WK 01"、"2019/1/22"なら"WK 04"。
+下記の画像のように仕上げるのを目標として
+色々試行錯誤しているところです。
+![イメージ説明]![イメージ説明](c69d6f8ff7ba01a3591f3b48026dafce.jpeg)

文法の編集

2019/03/11 06:42

投稿

carrin

スコア15

test CHANGED Viewed

File without changes

test CHANGED Viewed

@@ -84,9 +84,9 @@
 セルに転記させる・・・
-という方法をとったのですが、
+という方法をとってみました。
-上記のソースコードだとエラーは出ないのですが、
+しかし、上記のソースコードだとエラーは出ないのですが、
 何一つ値をとってこれません。