如何在一列中的一個單元格雙擊然后單元格顯示對號，然后單元格所在行后面的資料被劃上一條線
uj5u.com熱心網友回復：
幫你移到vba專區了uj5u.com熱心網友回復：
參考：Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
If Target.Column = 1 Then ''只有第一列雙擊時才有用
Cancel = True
If Target.Value = "√" Then
''取消
Target.Value = ""
''取消后面8列的下劃線標志
Target.Offset(0, 1).Resize(1, 8).Font.Underline = xlUnderlineStyleNone
Else
''設定
Target.Value = "√"
''設定后面8列的下劃線標志
Target.Offset(0, 1).Resize(1, 8).Font.Underline = xlUnderlineStyleSingle
End If
End If
End Sub
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/105153.html
標籤：VBA
上一篇：請問如何做這樣一個共選擇的界面？
下一篇：mysql實體求助。