¤@Àx¦s®æ ¥ÎIF ¦h§PÂ_¦¡ Åã¥Ü¤£¦P­Èor¤å¦r

webbliu

Dear ¦U¦ì¤j¤j¦n   ^ ^


¤p§Ì·Q¦b¤@­ÓÀx¦s®æ¸Ì­± °²³]¬OA1¯àÅã¥Ü¤T­Ó­È(°²³]³o¤T­Ó¾¬O¥Ò¡B¤A¡B¤þ)¡C

¦ý¬OA1 ·|¨Ì¾Ú B1 Àx¦s®æªº¤º®e Åã¥Ü¤£¦P¸ê°T¡C (°²³]B1¬° ¤@­ÓComboBox1 ªº LinkedCell ¤U©Ô¿ï³æ¦³¤T­Ó¬° §A¡B§Ú¡B¥L)

©Ò¥H§Ú§Æ±æ
B1 ¬° "§A" ªº®É­Ô A1 ¬° "¤þ" ¡A
B1 ¬° "§Ú" ªº®É­Ô A1 ¬° "¤A"
B1 ¬° "¥L" ªº®É­Ô A1 ¬° "¥Ò"

½Ð°Ý¤j¤j§Ú¸Ó«ç»ò¼gVBA?
ÁÂÁ¤j¤j ¤j¤j§A¯u´Î!!!

gstone

¨Ï¥ÎSwitch³B²z

Private Sub Worksheet_Change(ByVal Target As Range)
[a1] = Switch([b1] = "§A", "¤þ", [b1] = "§Ú", "¤A", [b1] = "¥L", "¥Ò")
End Sub

line6400

A1  Àx¦s®æªº¤º®e  =    IF(B1="§A","¤þ",IF(B1="§Ú","¤A",IF(B1="¥L","¥Ò","")))

oobird

1. Private Sub Worksheet_Change(ByVal Target As Range)
   
2. If Target.Address <> "$B$1" Then Exit Sub
   
3. [a1] = Mid("¤þ¤A¥Ò", InStr("§A§Ú¥L", [b1]), 1)
   
4. End Sub

½Æ»s¥N½X

hugh0620

¥ç¥i¥Îselectªº¤è¦¡¨Ó³B²z

Select Case [B1]
    Case "§A"
         [A1] = "¤þ"
    Case "§Ú"
         [A1] = "¤A"
    Case "¥L"
         [A1] = "¥Ò"
End Select

jackson7015

·Q¤F´X¤Ñ³£¨S·Q¨ì...

­ì¨Ó<>¬O¥Î¦b³oºØ¦a¤è¡A·P¿E¸Ñµª

register313

¦^´_ 5# jackson7015

>0  §ï¬°  <>""

jackson7015

¦^´_ 2# GBKEE

ÂǦ¹¥DÃDµo°Ý¬ÛÃö°ÝÃD

°²³]
A1 ¦³[­È]ªº®É­Ô °õ¦æA°Æµ{¦¡
A2 ¦³[­È]ªº®É­Ô °õ¦æB°Æµ{¦¡
A3 ¦³[­È]ªº®É­Ô °õ¦æC°Æµ{¦¡

½Ð°Ý¸Ó¤U¦C¬õ¦r³¡¤À¸Ó¦p¦ó§ó§ï

If [A3] > 0 Then
        C°Æµ{¦¡
ElseIf [A2] > 0 Then
        B°Æµ{¦¡
ElseIf [A1] >0 Then
        A°Æµ{¦¡
End If

GBKEE

¦^´_ 3# webbliu
³o¬OThisWorkbook IJµo¨Æ¥óµ{¦¡
Private Sub Workbook_SheetChange(ByVal Sh As Object, ByVal Target As Range)
³o¬OWorkSheet IJµo¨Æ¥óµ{¦¡     
Private Sub Worksheet_Change(ByVal Target As Range)
±Nµ{¦¡½X½Æ»s¨ì¨ä¤¤¤§£¸¸Ì­±§Y¥i ¸Õ¸Õ¬Ý

¤U¸ü (19.78 KB)

2010-8-4 09:32

webbliu

¦^´_ 2# GBKEE


    Dear ¤j¤j
         §Ú¦³¿ìªkÅý³o¬q»yªk ¹³¬O Àx¦s®æ¸Ìªº ¨ç¼Æ¦¡ ¤@¼Ë¦Û°Ê¦Ó¥B¤£¶¡Â_¦a°õ¦æ¶Ü?

  ¥Ø«e§Ú¶K¦bVBA Project ªºworkbook ´N¬O­n°õ¦æ¤@¦¸ sub ¤~·|§ó·sÀx¦s®æ¤@¦¸!

  «D±`·PÁÂ!!!