Question

excel创建输入界面，希望有才之士指教；利用vba编辑excel普通表格的输入界面，具体代码，拜谢。。。

Answer 1

利用单击事件、双击事件、单元格改变事件、单元格保护、单元格变色等编辑输入界面代码

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
'单击单元格事件
H = Target.Row: L = Target.Column
Cells(H, L) = 1
End Sub
--------------------------------------------
Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
'双击击单元格事件
H = Target.Row: L = Target.Column
Cells(H, L) = 1
End Sub
--------------------------------------------

Private Sub Worksheet_Change(ByVal Target As Range)
'单元格改变时间
H = Target.Row: L = Target.Column
He = Cells(65536, 1).End(xlUp).Row
If L = 1 And Cells(1, 256) = "" Then
日期 = Cells(H, L)
Cells(1, 256) = 1
For HH = H To H + 9
Cells(HH, L) = 日期
Next
Cells(1, 256) = ""
End If
End Sub