ªð¦^¦Cªí ¤W¤@¥DÃD µo©«

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

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

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´Î!!!

¦^´_ 1# webbliu
If [B1] = "§A" Then
        [A1] = "¤þ"
ElseIf [B1] = "§Ú" Then
        [A1] = "¤A"
ElseIf [B1] = "¥L" Then
        [A1] = "¥Ò"
End If

TOP

¦^´_ 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ÁÂ!!!

TOP

¥»©«³Ì«á¥Ñ GBKEE ©ó 2010-8-4 09:35 ½s¿è

¦^´_ 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 ¸Õ¸Õ¬Ý

EX1.GIF
2010-8-4 09:32

TOP

¦^´_ 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

TOP

¦^´_ 5# jackson7015

>0  §ï¬°  <>""

TOP

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

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

TOP

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

Select Case [B1]
    Case "§A"
         [A1] = "¤þ"
    Case "§Ú"
         [A1] = "¤A"
    Case "¥L"
         [A1] = "¥Ò"
End Select
¾Ç²ß¤~¯à´£¤É¦Û¤v

TOP

  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

TOP

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

TOP

        ÀR«ä¦Û¦b : ¦a¤WºØ¤Fµæ¡A´N¤£©öªø¯ó¡F¤ß¤¤¦³µ½¡A´N¤£©ö¥Í´c¡C
ªð¦^¦Cªí ¤W¤@¥DÃD