Sub NewSheet_Click()
Dim filter As String
Dim fileToOpen As Variant
Dim rowCount As Integer
filter = "All Files(*.*),*.*,Word Documents(*.do*),*.do*," & _
"Text Files(*.txt),*.txt,Excel Files(*.xl*), * .xl * "
fileToOpen = Application.GetOpenFilename(filter, 4, "select File")
If fileToOpen <> False Then
'選択ファイル、シートを追加する
Workbooks.Open fileToOpen
Sheets.Add after:=Sheets(Sheets.Count)
Sheets(Sheets.Count).Select
'全部の様式を設定
Columns("A").NumberFormatLocal = "yyyy/m/d"
Columns("A").HorizontalAlignment = xlCenter
Columns("C").HorizontalAlignment = xlCenter
Columns("C").Select
With Selection.Validation
.Delete
.Add Type:=xlValidateList, AlertStyle:=xlValidAlertStop, Operator:=xlBetween,
新建Sheet单元格状态控制整行颜色的VBA
最新推荐文章于 2024-07-06 11:54:32 发布
这段VBA代码实现的功能是在新建的工作表中,当单元格C列的状态为'OK'或'NG'时,相应行将自动填充特定颜色。它设置日期格式,水平对齐方式,验证输入,并在第一行设置样式作为标题,同时冻结首行。代码还定义了颜色条件格式,用于根据C列的状态变化调整行背景色。
摘要由CSDN通过智能技术生成