UserForm

雜七雜八
你好~
合併儲存格會變成陣列，且資料都會在 (1,1) ，以下修改的程式碼請試試看~ Thanks !

Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean)
' 檢查是否是空白儲存格
Set CurCell = Target

Dim Cell_Data As Variant
If Target.Rows.Count > 1 Or Target.Columns.Count > 1 Then
Cell_Data = Target(1, 1)
Else
Cell_Data = Target.Value
End If

'If Target.Value = "" Then
If Cell_Data = "" Then
UserForm1.Show
Cancel = True ' 取消默認的雙擊編輯動作
End If
Set CurCell = Nothing
End Sub