求助EXCEL.制做宏.實(shí)現(xiàn)以下功能

cangqiong

問(wèn) : 想作一個(gè)"宏"自定義菜單按鈕,想實(shí)現(xiàn)的功能是

例如在EXCEL表中有A1字段名是型號(hào)。B1字段是名品種。C1字段名是類別

               型號(hào)                            品種                          類別

C2Q050-05-51654               制品                             量產(chǎn)品                     

12Q050-05-51654               制品

C2Q050-05-59444              制品                           量產(chǎn)品

就是以型號(hào)“C2Q”開(kāi)頭的，并且品種是“制品”是數(shù)據(jù)。點(diǎn)一下按鈕。類別字段列就出現(xiàn)“量產(chǎn)品”               

     

[此貼子已經(jīng)被作者于2006-9-4 15:49:29編輯過(guò)]

cangqiong

傳一個(gè)具體例子。愿高手幫我作一下

如：有兩種情況

1.我上傳的表中，型號(hào)字段有CK開(kāi)頭的。點(diǎn)一下按鈕類別字段的列就會(huì)顯示“量產(chǎn)品”

2.型號(hào)是以 “—XL”結(jié)尾的，并且“品種字段”不是治具的。就顯示“其它”

望高手們救救命啊

tangqp

用公式就可以了

=IF(LEFT(B16,2)="CK","量產(chǎn)品",IF(AND(RIGHT(B16,3)="-XL",A16<>"治具"),"其它",""))

cangqiong

謝謝。。不過(guò)還有個(gè)問(wèn)題。。也是這種類型的請(qǐng)幫幫忙

CK*   *代表有N個(gè)字符  例CK54566 CKasdfd

我想要的是CK*在EXCEL模塊中怎么用

還有像 M*BK*    和     C*Q2*100-* 在EXCEL模塊中怎么用。。謝謝

我試過(guò)用Select Case *號(hào)不識(shí)別   樓上有附件可否幫我作一下

像這種M*BK*  CK*  和     C*Q2*100-* 都是“量產(chǎn)品" 在模塊中怎么表達(dá)

紅池壩

呵呵，3樓的公式不就行了嗎？

excel不是數(shù)據(jù)庫(kù)，不支持適用SQL查詢的

cangqiong

CK*   *代表有N個(gè)字符  例CK54566 CKasdfd

EXCEL像 M*BK*    和     C*Q2*100-* 在EXCEL模塊中不支持嗎？

我想在EXCEL查找M*BK*    和     C*Q2*100-*  應(yīng)該怎么辦��？

tangqp

Sub main()
Dim a(2, 2) As String
    a(1, 1) = "CK"
    a(1, 2) = "量產(chǎn)品"
    a(2, 1) = "CQ2"
    a(2, 2) = "其他"
    '其余省略
    For i = 1 To Sheets(1).UsedRange.Rows.Count
        For j = 1 To UBound(a)
            If Left(Cells(i, 2), Len(a(j, 1))) = a(j, 1) Then
                Cells(i, 3) = a(j, 2)
            End If
        Next j
    Next i
End Sub

cangqiong

謝謝。非常感謝

cangqiong

因?yàn)槌绦驔](méi)有讀懂

可以問(wèn)下這幾行是什么意思嗎？ For i = 1 To Sheets(1).UsedRange.Rows.Count
                               For j = 1 To UBound(a)
                              If Left(Cells(i, 2), Len(a(j, 1))) = a(j, 1) Then
                               Cells(i, 3) = a(j, 2)
可以問(wèn)下你，你的QQ是多少交個(gè)朋友

tangqp

Sheets(1).UsedRange.Rows.Count

返回該工作表使用的行數(shù)

UBound(a)

求數(shù)組下標(biāo)長(zhǎng)度