teratail
回答率
85.30%
teratail header banner
teratail header banner
質問するログイン新規登録
トップVBAに関する質問【VBA】コードを短縮したいです（初学者）

編集履歴

回答編集履歴

4

コード修正

2021/10/08 00:34

投稿

hatena19
hatena19

スコア34367

answer CHANGED
@@ -48,7 +48,7 @@
48
48
  '文字列を左から8文字目まで切り出して日付型に変換
49
49
  Dim c As Range
50
50
  For Each c In rng.Cells
51
- c.Value = Left(c.Value, 4)
51
+ c.Value = CDate(Left(c.Value, 4))
52
52
  Next
53
53
 
54
54
  End Sub

3

コード追記

2021/10/08 00:34

投稿

hatena19
hatena19

スコア34367

answer CHANGED
@@ -34,4 +34,22 @@
34
34
  Next
35
35
 
36
36
  End Sub
37
+ ```
38
+
39
+ こんなのも。
40
+
41
+ ```vba
42
+ Sub editString()
43
+
44
+ Dim rng As Range
45
+ Set rng = Range(Cells(2, 1), Cells(Rows.Count, 1).End(xlUp))
46
+ Set rng = Union(rng.Offset(, 3), rng.Offset(, 4), rng.Offset(, 7))
47
+
48
+ '文字列を左から8文字目まで切り出して日付型に変換
49
+ Dim c As Range
50
+ For Each c In rng.Cells
51
+ c.Value = Left(c.Value, 4)
52
+ Next
53
+
54
+ End Sub
37
55
  ```

2

コード修正

2021/10/08 00:33

投稿

hatena19
hatena19

スコア34367

answer CHANGED
@@ -8,9 +8,9 @@
8
8
 
9
9
  '文字列を左から8文字目まで切り出して日付型に変換
10
10
  Do Until Cells(row, 1).Value = ""
11
- Cells(row, 3).Value = CDate(Left(Cells(row, 3).Value, 8))
12
- Cells(row, 3).Value = CDate(Left(Cells(row, 4).Value, 8))
11
+ Cells(row, 4).Value = CDate(Left(Cells(row, 4).Value, 8))
13
- Cells(row, 7).Value = CDate(Left(Cells(row, 7).Value, 8))
12
+ Cells(row, 5).Value = CDate(Left(Cells(row, 5).Value, 8))
13
+ Cells(row, 8).Value = CDate(Left(Cells(row, 8).Value, 8))
14
14
  row = row + 1
15
15
  Loop
16
16
 
@@ -28,9 +28,9 @@
28
28
  '文字列を左から8文字目まで切り出して日付型に変換
29
29
  Dim c As Range
30
30
  For Each c In rng.Cells
31
+ c.Offset(,3).Value = CDate(Left(c.Offset(,3).Value, 8))
31
32
  c.Offset(,4).Value = CDate(Left(c.Offset(,4).Value, 8))
32
- c.Offset(,5).Value = CDate(Left(c.Offset(,5).Value, 8))
33
+ c.Offset(,7).Value = CDate(Left(c.Offset(,7).Value, 8))
33
- c.Offset(,8).Value = CDate(Left(c.Offset(,8).Value, 8))
34
34
  Next
35
35
 
36
36
  End Sub

1

コード修正

2021/10/07 23:35

投稿

hatena19
hatena19

スコア34367

answer CHANGED
@@ -8,9 +8,9 @@
8
8
 
9
9
  '文字列を左から8文字目まで切り出して日付型に変換
10
10
  Do Until Cells(row, 1).Value = ""
11
+ Cells(row, 3).Value = CDate(Left(Cells(row, 3).Value, 8))
11
- Cells(row, 4).Value = CDate(Left(Cells(row, 4).Value, 8))
12
+ Cells(row, 3).Value = CDate(Left(Cells(row, 4).Value, 8))
12
- Cells(row, 5).Value = CDate(Left(Cells(row, 5).Value, 8))
13
+ Cells(row, 7).Value = CDate(Left(Cells(row, 7).Value, 8))
13
- Cells(row, 8).Value = CDate(Left(Cells(row, 8).Value, 8))
14
14
  row = row + 1
15
15
  Loop
16
16