返回列表 上一主題 發帖

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

z71078170

帖子
5 
主題
4 
精華
0 
積分
12 
點名
0  
作業系統
win7 
軟體版本
Office2010 
閱讀權限
10 
性別
男 
註冊時間
2015-11-25 
最後登錄
2017-3-31 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2015-11-27 18:07 | 只看該作者

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

最近小弟又碰到了一個問題
想偵測在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

  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
複製代碼
收藏 分享

        靜思自在 : 【生命在呼吸間】佛陀說：「生命在呼吸間。」人無法管住自己的生命，更無法擋住死期，讓自己永住人間。既然生命去來這麼無常，我們更應該好好地愛惜它、利用它、充實它，讓這無常、寶貴的生命，散發它真善美的光輝，映照出生命真正的價值。
返回列表 上一主題