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