updsv7/vba
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

更新 vba_code_kukan_detail_master.txt

Browse Source
This commit is contained in:
simple321vip
2026-04-13 03:19:17 +00:00
parent f3465cdcea
commit 318314958e
1 changed files with 39 additions and 41 deletions
Download Patch File Download Diff File Expand all files Collapse all files

80
vba_code_kukan_detail_master.txt
View File

@@ -31,7 +31,46 @@ Private Sub Worksheet_Change(ByVal Target As Range)
End If End If
End Sub End Sub
Sub FillFromKukanMaster(ByVal ws As Worksheet, ByVal rowNum As Long, Optional ByVal setG As Boolean = True)
Dim wsKukan As Worksheet
Dim lastRow As Long
Dim i As Long
Dim code As String
On Error Resume Next
Set wsKukan = ThisWorkbook.Worksheets("区間メンテナンス")
MsgBox "1."
On Error GoTo 0
If wsKukan Is Nothing Then Exit Sub
code = Trim(ws.Cells(rowNum, 3).Value)
If code = "" Then Exit Sub
MsgBox "2."
lastRow = wsKukan.Cells(wsKukan.Rows.Count, 3).End(xlUp).Row
For i = 7 To lastRow
If Trim(wsKukan.Cells(i, 3).Value) = code Then
ws.Cells(rowNum, 4).Value = Trim(wsKukan.Cells(i, 4).Value) & ": " & Trim(wsKukan.Cells(i, 5).Value)
ws.Cells(rowNum, 5).Value = Trim(wsKukan.Cells(i, 6).Value) & "~" & Trim(wsKukan.Cells(i, 7).Value)
If setG Then
ws.Cells(rowNum, 7).Value = "1"
Call MakeFDropdownByG(ws, rowNum)
End If
Exit Sub
End If
Next
Call ClearRowData(ws, rowNum)
End Sub
Sub ClearRowData(ByVal ws As Worksheet, ByVal rowNum As Long)
' Clear from D column onwards
ws.Range(ws.Cells(rowNum, 4), ws.Cells(rowNum, 15)).ClearContents
ws.Cells(rowNum, 6).Validation.Delete
ws.Cells(rowNum, 17).ClearContents ' Q column error info
End Sub
Sub MakeFDropdownByG(ByVal ws As Worksheet, ByVal rowNum As Long) Sub MakeFDropdownByG(ByVal ws As Worksheet, ByVal rowNum As Long)
Dim wsKotsu As Worksheet Dim wsKotsu As Worksheet
@@ -224,47 +263,6 @@ Function CleanCSVField(ByVal field As Variant) As String
CleanCSVField = result CleanCSVField = result
End Function End Function
Sub FillFromKukanMaster(ByVal ws As Worksheet, ByVal rowNum As Long, Optional ByVal setG As Boolean = True)
Dim wsKukan As Worksheet
Dim lastRow As Long
Dim i As Long
Dim code As String
On Error Resume Next
Set wsKukan = ThisWorkbook.Worksheets("区間メンテナンス")
MsgBox "1."
On Error GoTo 0
If wsKukan Is Nothing Then Exit Sub
code = Trim(ws.Cells(rowNum, 3).Value)
If code = "" Then Exit Sub
MsgBox "2."
lastRow = wsKukan.Cells(wsKukan.Rows.Count, 3).End(xlUp).Row
For i = 7 To lastRow
If Trim(wsKukan.Cells(i, 3).Value) = code Then
ws.Cells(rowNum, 4).Value = Trim(wsKukan.Cells(i, 4).Value) & ": " & Trim(wsKukan.Cells(i, 5).Value)
ws.Cells(rowNum, 5).Value = Trim(wsKukan.Cells(i, 6).Value) & "~" & Trim(wsKukan.Cells(i, 7).Value)
If setG Then
ws.Cells(rowNum, 7).Value = "1"
Call MakeFDropdownByG(ws, rowNum)
End If
Exit Sub
End If
Next
Call ClearRowData(ws, rowNum)
End Sub
Sub ClearRowData(ByVal ws As Worksheet, ByVal rowNum As Long)
' Clear from D column onwards
ws.Range(ws.Cells(rowNum, 4), ws.Cells(rowNum, 15)).ClearContents
ws.Cells(rowNum, 6).Validation.Delete
ws.Cells(rowNum, 17).ClearContents ' Q column error info
End Sub
Sub validateDetailData(ByVal ws As Worksheet, ByVal rowNum As Long) Sub validateDetailData(ByVal ws As Worksheet, ByVal rowNum As Long)
' Check C column not empty ' Check C column not empty
If Trim(ws.Cells(rowNum, 3).Value) = "" Then If Trim(ws.Cells(rowNum, 3).Value) = "" Then