|
|
|
在Excel單元格中加上背景字?50有時，為了應(yīng)付不大會使用EXCEL的人操作方便或給填寫表格的人說明此處應(yīng)該填寫的內(nèi)容，但當(dāng)只用者雙擊單元格進行編輯的時候該背景文字自動消失。 為滿足上述要求應(yīng)在一個單元格加上字段名或某些提示性的字，EXCEL是否可以?批注不行！數(shù)據(jù)有效性不行！我需要是一直顯示當(dāng)雙擊的時候文字才消失！ 問題補充： 就像這種提示法，當(dāng)我要在出生日期后輸入文字的時候雙擊表格， 1985-12-25這些字段就自動消失 數(shù)據(jù)菜單-有效性 如可以限定輸入的范圍,提示輸入內(nèi)容,提示錯誤或警告提醒!比如:
沒有直接底紋顯示的! 不明白你為什么要這樣做，覺得是操作習(xí)慣要作調(diào)整，在單元格輸入內(nèi)容時，為什么一定要先雙擊？ 只有原單元格有內(nèi)容，需要對其進行修改時才需要先雙擊。用有效性吧，最理想了 在B8（你圖上好像是B8）設(shè)好文字和黃色背景，然后選擇“工具”-----“宏”----“VB編輯器”或ALT+F11， 在VB編輯器中，先雙擊左邊窗口的“sheet1(sheet1)“，然后將以下代碼復(fù)制到右邊，OK ----------------- Private Sub Worksheet_BeforeDoubleClick(ByVal Target As Range, Cancel As Boolean) If Not Intersect([B8], Target) Is Nothing Then Selection.Clear End If End Sub -----------------------
你的代碼只是定義了雙擊單元格過后顏色和文字自動隱藏 但當(dāng)光標(biāo)離開單元格過后顏色和文字不會重新顯現(xiàn)
剛才代碼的后面再加上這一段， Private Sub Worksheet_SelectionChange(ByVal Target As Range) If Range("b8") = "" Then Range("b8").Select ActiveCell.FormulaR1C1 = "如1985-12-25" Selection.Interior.ColorIndex = 6 End If End Sub 再請教一下，如果我將單元格B8換問B89（第8 9格合并），代碼里面應(yīng)該怎樣修改呢?請不吝賜教，我會追加積分，
將第一段代碼中的Selection.Clear改成下面的內(nèi)容： Range("b8").Select Selection.ClearContents Selection.Interior.ColorIndex = xlNone
在此非常你的回答。你的專業(yè)知識讓我欽佩！
不客氣，我也是半路出家的野和尚。共同學(xué)習(xí) 要實現(xiàn)這樣的效果，我能想到的是有兩種方式來實現(xiàn)： （1）用樓上幾位說的宏來實現(xiàn)。 （2）利用背景來實現(xiàn)。這個背景實現(xiàn)的時候，還是有一定的技巧的。
我知道用宏可以實現(xiàn)，但本人對VBA編程并不感冒。請問下用背景是如何實現(xiàn)的，如果能解決一定加分。
1，制作一張背景圖片，和這個單元格差不多大，里面有這個文字。其實這個圖片，可以用Excel來做，很簡單的，就怕你又要問我了。唉。我這幾天煩著呢。 2，將這個圖片，插入到背景中。 3，所有單元格底色設(shè)為白色。要輸入文字的地方，你要邊框線就要加邊框了。 4，這個單元格，設(shè)為無色。
|
|
發(fā)表留言請先登錄！
|