EXCEL按鈕顯示數字問題

假設在shee1 有打入數字

A B C D E F G H G

1 01 02 09 25 35 50 60 70

2 25 42 35 70 44 15 24 36

3

4

在sheet2 有寫好1~70的數字

想問說有沒VBA程式

在G1 設定按鈕

就可以讓在sheet2寫好的數字變顏色或者粗體

EX:sheet2 寫好1~20

01 02 03 04 05 06 07 08 09 10

11 12 13 14 15 16 17 18 19 20

按下G1 對應sheet2的01 02 09 25 35 50 60 70變顏色或粗體

已更新項目:

http://www.FunP.Net/152314

這個是假設的表

worlonzeng 大搞反我的意思了

shee1 的A1-F1

以及A2-F2是兩組獨立的數字

我是想要 如果出現在A1-F1的數字

在SHEET2上面會出現顏色

下一組

A2-F2的 在SHEET2會出現顏色

當然 如果以函數表示

sheet2的數字 就會寫2組

來表示分布狀態

2 個已更新項目:

121519101417==>第一組

21151225202 ==>第二組

互為獨立

sheet2 寫好1~20

01 02 03 04 05 06 07 08 09 10

11 12 13 14 15 16 17 18 19 20

再第一組右邊設定後 按下按鈕

就可以在Sheet的1~20數字

讓121519101417

變顏色

以下類推

函數也可以

3 個解答

評分
  • 1 0 年前
    最佳解答

    你的需求說明不是很容易讓人看懂,我猜一下好了,Sheet1的數字並為按順序排列,而Sheet2的數字有按順序來列,當Sheet1 G1被按下時,所以那一列被選到的數字是01 02 09 25 35 50 60 70,而你要的是Sheet2裡01 02 09 25 35 50 60 70等數字變粗體。

    以下是我的作法

    Private Sub Worksheet_SelectionChange(ByVal Target As Range)

    Initial:

    Dim iIdx As Long

    Dim SelRow As Long

    Dim tDat As String

    Dim tRow As Long, tCol As Long

    Main01:

    If Target.Columns.Count < 256 Then

    Exit Sub

    Else

    SelRow = Target.Row

    End If

    Sheets("Sheet2").Activate

    Sheets("Sheet2").Range("A1:IV65536").Select

    Selection.Font.Bold = False

    Sheets("Sheet2").Range("A1").Select

    For iIdx = 1 To 256

    tDat = Target.Columns(iIdx)

    If tDat = "" Then

    Exit Sub

    End If

    tRow = (CInt(tDat) - 1) \ 10 + 1

    tCol = (CInt(tDat) - 1) Mod 10 + 1

    Sheets("Sheet2").Cells(tRow, tCol).Font.Bold = True

    Next

    End Sub

  • 1 0 年前

    恩@@ 可說依下怎樣做嗎....

  • 匿名使用者
    1 0 年前

    此需求不需VBA ~

    2009-03-07 16:43:33 補充:

    可以說明多些嗎?

    補充令我搞迷糊了 ~

    重複出現? 那要如何表示?

    請在你的範例上用你想要的顏色顯示出來 ~

    (包含重複與不重複 ~)

    2009-03-07 21:47:24 補充:

    給的檔案, 變通一下便是解答 ~

    2009-03-07 21:49:14 補充:

    "就可以在Sheet的1~20數字

    讓121519101417

    變顏色"

    哪張表的 12 15 19 10 14 17 變色 ?

    是 Sheet1 嗎 ?

    2009-03-08 10:32:47 補充:

    還是看不懂 ...

    撤答贊助好了 ~

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