[發問] 請教如何設定儲存格的預設值?

z71078170

最近小弟又碰到了一個問題
想偵測在A1:A200的欄位中輸入資料後，若隔壁欄位B1為空值則自動複製A1
反之B1<>""就不複製A1的值
想請教是否可解?

目前有製作出在範圍內雙擊可填入該欄位值 如下

1. Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, _
   
2.         Cancel As Boolean)
   
3.     Dim icbc As Object
   
4.     For Each icbc In Application.CommandBars("cell").Controls
   
5.         If icbc.Tag = "brccm" Then icbc.Delete
   
6. 
   
7.     Next icbc
   
8.     If Not Application.Intersect(Target, Range("M1:N200")) _
   
9.         Is Nothing Then
   
10.             With Application.CommandBars("cell").Controls _
    
11.                 .Add(Type:=msoControlButton, before:=6, _
    
12.                 temporary:=True)
    
13.             If ActiveCell = "" Then
    
14.            ActiveCell.FormulaR1C1 = "Y"
    
15.            Else
    
16.            ActiveCell.ClearContents
    
17.            End If
    
18.         End With
    
19.     End If
    
20. End Sub

複製代碼