有關excel巨集設定的問題,不會設定>"<(急)

今天excel表格需要一各指令去處理大量數字轉換

總共會輸入5各數字,要求如下:

輸入0則等於0,

輸入1則等於1,

輸入2則等於3,

輸入3則等於4,

輸入4則等於2,

弄了許久弄不出來,請各位熟悉excel巨集的先進指導>"<,感恩

已更新項目:

准兄你好:

感謝您的提醒,應該是屬於(1)才是,

可否請准兄有空時指導巨集如何打呢?

您下方列的我看不太懂@@" 可否在詳盡述說,感謝您~

2 個已更新項目:

阿 對不起 我頭暈了....

應該是2的第二點,即是在同一張工作表內其他空格處show出來我要的數字@@

比如說 我再第一列輸入 0,1,2,3,4 ,第二列會自動顯示0,1,3,4,2

不知道這樣准兄可以了解我的意思嗎?

3 個已更新項目:

太感謝了!!!

這正是我所需要的!!!

非常感謝准兄您!!! <(_"_)>

4 個已更新項目:

阿...沒辦法選為最佳解答>"<

還請准兄在所有回答區留言,好讓我把知識點數給您,

感謝~

1 個解答

評分
  • 9 年前
    最佳解答

    1.是要將已存在的數字〔代換〕為準則中的數字?

    2.還是在一儲存格輸入4後自動變換為2?亦或是在其它儲存格產生2?

    2011-07-26 10:48:55 補充:

    若是1,可參考:

    Sub 代換()

    With Range("A:A")

    .Replace 2, "^A", Lookat:=xlWhole

    .Replace 3, "^B"

    .Replace 4, "^C"

    .Replace "^A", 3

    .Replace "^B", 4

    .Replace "^C", 2

    End With

    End Sub

    2011-07-26 12:10:35 補充:

    先參考看看,逐個輸入逐一轉換,公式及巨集兩種方式:

    http://www.funp.net/895752

    2011-07-26 12:38:23 補充:

    不知決定使用〔公式〕還是〔巨集〕?

    若是使用〔巨集〕時,請先套入實檔操作看看,有問題再補充出來!

    2011-07-26 13:03:24 補充:

    EXCEL VBA.

    依儲存格〔輸入值〕自動判別並填入自訂〔代換值〕

                             <.准提部林.>

    ----------------------------------

    ■範例資料:依〔輸入列〕數值自動在其下一列產生〔代換值〕

     A B C D E F輸入列02434代換值03242輸入列32444代換值43222輸入列23224代換值34332

    ■公式法:

     B2公式 =IF(OR(B1="",B1<0,B1>4),"",CHOOSE(B1+1,0,1,3,4,2))

    ■巨集法:

     Private Sub Worksheet_Change(ByVal Target As Range)

     If Target.Column < [B1].Column Or _

      Target.Column > [F1].Column Then Exit Sub

      '↑選取區超出範圍時,跳出

     If Target.Count <> 1 Then Exit Sub

     '↑非選取〔單一儲存格〕時,跳出

     If Target.Row Mod 2 = 0 Then Exit Sub

     '↑選取儲存格列號為〔雙數〕時,跳出

     Select Case Target.Value

         Case "": Target(2, 1) = ""

         Case 0: Target(2, 1) = 0

         Case 1: Target(2, 1) = 1

         Case 2: Target(2, 1) = 3

         Case 3: Target(2, 1) = 4

         Case 4: Target(2, 1) = 2

         Case Else: Target(2, 1) = ""

     End Select

     End Sub

    ----------------------------------

    <範例檔>

    http://www.funp.net/895752

    ----------------------------------

還有問題?馬上發問,尋求解答。