[發問] (已解決)VBA簡體轉繁體

freeffly

Option Explicit
Private WithEvents GB_CbE As CommandBarEvents
Private WithEvents Big5_CbE As CommandBarEvents
　
________________________________________
Private Sub Workbook_Open()
    CreateVBEMenu
End Sub
　
________________________________________
Private Sub Workbook_AddinInstall()
    Dim AI As AddIn, hWnd As Long
    On Error Resume Next
    hWnd = Application.VBE.MainWindow.hWnd
    If Err.Number = 1004 Then
        MsgBox "您的安全性設定不允許您執行此程序." _
                & vbCrLf & vbCrLf & "請更改安全性設定後重新執行:" _
                & vbCrLf & vbCrLf & " 1. 點選 工具 - 巨集 - 安全性." _
                & vbCrLf & " 2. 點選  '信任存取 Visual Basic 專案"
        On Error Resume Next
        For Each AI In Application.AddIns
            If AI.Name = ThisWorkbook.Name Then
                AI.Installed = False
                ThisWorkbook.Close False
            End If
        Next AI
    End If
End Sub
　
________________________________________
Private Sub Workbook_BeforeClose(Cancel As Boolean)
    On Error Resume Next
    Application.VBE.CommandBars("cmd_TCSC").Delete
    Application.VBE.CommandBars(2).Left = 0
End Sub
　
________________________________________
Sub CreateVBEMenu()
    Dim vcbr As CommandBar, vctl As CommandBarControl
    '如果 cmd_TCSC存在的話,刪除它
    On Error Resume Next
    Application.VBE.CommandBars("cmd_TCSC").Delete
    Set vcbr = Application.VBE.CommandBars.Add(Name:="cmd_TCSC", _
            Position:=msoBarTop, temporary:=True)
    '新增Button
    vcbr.Visible = True
    vcbr.RowIndex = Application.VBE.CommandBars(2).RowIndex
    Set vctl = vcbr.Controls.Add(Type:=msoControlButton)
    With vctl
        ThisWorkbook.Sheets("icon").Shapes("TCSC").Copy
        .PasteFace
        .Style = msoButtonIcon
        .TooltipText = "繁轉簡"
        Set GB_CbE = Application.VBE.Events.CommandBarEvents(.Control)
    End With
    Set vctl = vcbr.Controls.Add(Type:=msoControlButton)
    With vctl
        ThisWorkbook.Sheets("icon").Shapes("SCTC").Copy
        .PasteFace
        .Style = msoButtonIcon
        .TooltipText = "簡轉繁"
        Set Big5_CbE = Application.VBE.Events.CommandBarEvents(.Control)
    End With
End Sub
　
________________________________________
Private Sub GB_CbE_Click(ByVal CommandBarControl As Object, _
        handled As Boolean, CancelDefault As Boolean)
    Call BIG5_GB
End Sub
　
________________________________________
Private Sub Big5_CbE_Click(ByVal CommandBarControl As Object, _
        handled As Boolean, CancelDefault As Boolean)
    Call GB_BIG5
End Sub




這個是在某個網站上看到的
可以用來轉換簡體的VBA變成繁體
我直接貼到程式碼中
可是會出現問題
有人知道怎麼使用這個嗎?
資料來源網址
http://chijanzen.net/wp/?p=358

freeffly

出問題的畫面詳附加檔
請問有人知道步驟嗎?
還是有什麼限制?

kimbal

出問題的畫面詳附加檔
請問有人知道步驟嗎?
還是有什麼限制?
freeffly 發表於 2010-7-24 19:25

    留意一下這裡, THISWORKBOOK的要放在THISWORKBOOK, MODULE1的放進MODULE1...

下載 (68.75 KB)

2010-7-24 23:31

freeffly

還是沒辦法耶
有人會將簡體的vba轉成繁體嗎

oobird

chijanzen已製作增益集放在該網址，你下載後在增益集中載入，vbe視窗內即多了繁簡轉換的按鈕，按一下即可轉換！

PD961A

回復 4# freeffly


   

下載 (29.71 KB)

2010-7-26 13:52

H0077.rar (37.26 KB)

下載次數: 64

2010-7-26 13:52

freeffly

回復 6# PD961A


    我後來有看到
  我也照做可是一樣沒有那個按鈕
  難道還有什麼步驟要做嗎?
  我安裝了也打開那個增益集
也點選大大畫面上那個勾勾
真是失望怎麼大家都可以為什麼我試不出來
版本有差嗎?

PD961A

回復 7# freeffly

H0077是2007
試改用H0067
http://chijanzen.net/wp/?p=142

Hsieh

回復 7# freeffly


   

下載 (75.38 KB)

2010-7-29 20:09

PD961A

回復 9# Hsieh
    謝謝超級版主
只有看到適用於２００３的版本沒注意到是針對工作表文字

下載 (20.57 KB)

2010-7-29 20:30

回復 7# freeffly不好意思
Ｈ００７７的那篇文裡有ＭＯＤＵＬＥ的按鍵裡面有程式碼

下載 (18.11 KB)

2010-7-29 20:30