標題: 設定工作表欄位儲存格加上 " ' " [打印本頁]

---

作者: agwhk    時間: 2012-11-17 12:05     標題: 設定工作表欄位儲存格加上 " ' "

例 : 如何在A10..A65536及B10:B65536 欄中所有儲存格如輸入數值後按Enter
       或離開後自動在最數字前加上 '  的符號變成不是數值。  
                                                      
     謝謝各位大大

---

作者: die78325    時間: 2012-11-17 13:12

A10:A65536框選
儲存格格式→文字
B10:B65536框選
儲存格格式→文字
錄製巨集即可.....不知大大要的是否是這個答案...

---

作者: mark15jill    時間: 2012-11-20 15:19

回復 1# agwhk


    Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    For gha = 10 To ActiveSheet.Range("a10").CurrentRegion.Rows.Count
        If Cells(gha, 1) <> "" Then Cells(gha, 1) = "@" & Cells(gha, 1)
    Next
End Sub

---

作者: agwhk    時間: 2012-11-20 19:38

謝謝 各位大大 明白了!

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)