在excel表格里加上底字的方法:
1.開啟目標工作簿,選定目標工作表,在目標工作表標籤上右鍵,選-檢視程式碼。
2.將宏程式碼貼上至剛才開啟的視窗,並將其中的“A1”修改成你的目標單元格,比如“B1”,將提示字“使用者名稱”改成想要的字。PrivateSubWorksheet_BeforeDoubleClick(ByValTargetAsRange,CancelAsBoolean)IfTarget.Address(0,0)="A1"ThenIfTarget.Value="使用者名稱"ThenWithTarget.ClearContents.Interior.ColorIndex=xlNoneEndWithEndIfEndIfEndSubPrivateSubWorksheet_SelectionChange(ByValTargetAsRange)IfIsEmpty(Range("A1"))ThenWithRange("A1").FormulaR1C1="使用者名稱".Interior.ColorIndex=15EndWithEndIfEndSub3.關掉當前視窗。4.儲存工作簿。另:修改安全性:選單-工具-選項-安全性-宏安全性,將安全等級其修改成-中,開啟此工作簿是請啟用宏。
在excel表格里加上底字的方法:
1.開啟目標工作簿,選定目標工作表,在目標工作表標籤上右鍵,選-檢視程式碼。
2.將宏程式碼貼上至剛才開啟的視窗,並將其中的“A1”修改成你的目標單元格,比如“B1”,將提示字“使用者名稱”改成想要的字。PrivateSubWorksheet_BeforeDoubleClick(ByValTargetAsRange,CancelAsBoolean)IfTarget.Address(0,0)="A1"ThenIfTarget.Value="使用者名稱"ThenWithTarget.ClearContents.Interior.ColorIndex=xlNoneEndWithEndIfEndIfEndSubPrivateSubWorksheet_SelectionChange(ByValTargetAsRange)IfIsEmpty(Range("A1"))ThenWithRange("A1").FormulaR1C1="使用者名稱".Interior.ColorIndex=15EndWithEndIfEndSub3.關掉當前視窗。4.儲存工作簿。另:修改安全性:選單-工具-選項-安全性-宏安全性,將安全等級其修改成-中,開啟此工作簿是請啟用宏。