2014-06-23 87 views

回答

1

這裏是一個小的宏,編碼列爲A。它可以被修改來處理任何一組單元格。宏監視列A中的條目,並且將它們從諸如0745a0745p的值改變爲正常時間。在工作表中的代碼區域中輸入以下事件宏:

Private Sub Worksheet_Change(ByVal Target As Range) 
    If Intersect(Target, Range("A:A")) Is Nothing Then Exit Sub 
    Application.EnableEvents = False 
     s = Target.Text 
     If Right(s, 1) = "a" Or Right(s, 1) = "A" Then 
      s2 = " AM" 
     Else 
      s2 = " PM" 
     End If 
     Target.Value = Left(s, 2) & ":" & Mid(s, 3, 2) & s2 
    Application.EnableEvents = True 
End Sub 

因爲它是工作表的代碼,這是非常容易安裝和自動使用:

  1. 右鍵單擊接近底部的標籤名稱Excel窗口
  2. 選擇查看代碼的 - 這帶來了一個VBE窗口
  3. 粘貼的東西在,並關閉VBE窗口

如果您有任何疑問,請先在試用工作表上嘗試。

如果保存工作簿,宏將與其一起保存。 如果您正在使用一個版本的Excel更高然後2003,你必須保存 該文件作爲.XLSM而非的.xlsx

要刪除宏:

  1. 彈出窗口VBE如上
  2. 清晰的代碼進行
  3. 關閉VBE窗口

要了解更多關於一般的宏,請參閱:

http://www.mvps.org/dmcritchie/excel/getstarted.htm

http://msdn.microsoft.com/en-us/library/ee814735(v=office.14).aspx

要了解更多有關事件宏(工作表的代碼),請參閱:

http://www.mvps.org/dmcritchie/excel/event.htm

宏必須爲此工作啓用!

相關問題