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

[µo°Ý] ¨D±Ð©ó¦U¤è°ª¤â...

[µo°Ý] ¨D±Ð©ó¦U¤è°ª¤â...

½Ð°Ý¦U¤è°ª¤â:
       ©³¤Uªºµ{¦¡½XÀ³¸Ó¬O¥¿½Tªº,¦ý¬O§Ú¥h¬Ý¤£¥X¨Ó¬°¦ó VBA¤£ªÖ°õ¦æ,¬O§_¦³¤H¥i¥H¬Ý¥X°ÝÃD.....

Sub Macro10()
'
' Macro10 Macro
'
¤½¥q¥N¸¹ = 2330
¦~«×¥N¸¹ = 2010
¤ë¥÷¥N¸¹ = 3
'©u«×¥N¸¹ = 20143

    If ¤ë¥÷¥N¸¹ = 3 Or 4 Then _
      ©u«×¥N¸¹ = "¦~«×¥N¸¹" - 1 & 4
    ElseIf ¤ë¥÷¥N¸¹ = 5 Or 6 Or 7 Then _
      ©u«×¥N¸¹ = "¦~«×¥N¸¹" & 1
    ElseIf ¤ë¥÷¥N¸¹ = 8 Or 9 Or 10 Then _
      ©u«×¥N¸¹ = "¦~«×¥N¸¹" & 2
    ElseIf ¤ë¥÷¥N¸¹ = 11 Or 12 Or 1 Or 2 Then _
      ©u«×¥N¸¹ = "¦~«×¥N¸¹" & 3
    Else: MsgBox "½Ð¿é¤J¤ë¥÷¥N¸¹"
    End If

    ÁÂÁ¦U¤è°ª¤âªº¦^µª

¥»©«³Ì«á¥Ñ adrian_9832 ©ó 2019-12-15 19:53 ½s¿è

VBA ²Â²Â  ¦bOR «á­± ­n²M·¡ªí¹F±ø¥ó ¥¦¤~À´

¸Ñ¨M¤èªk1:

     If ¤ë¥÷¥N¸¹ = 3 Or ¤ë¥÷¥N¸¹ = 4 Then _  

©ÎªÌ§A¥i¥H¥[¬A¸¹ ¦p¤U:

¸Ñ¨M¤èªk2:

    If (¤ë¥÷¥N¸¹ = 3 Or 4) Then
        MsgBox 123
    End If


ÁÙ¦³³o¸Ì :
©u«×¥N¸¹ = "¦~«×¥N¸¹" - 1 & "4"

VBA ¬Ý¤£À´ ³o¬O ­n¤z¶Üªº   ¬O·Q­n °µ¥[´îªk ÁÙ¬O¨ä¥L  ¦]¬° ²{¦b ¥L¸ê®ÆÃþ«¬¬O ¦r¦ê  ©Ò¥H¤£¯à·í¹Bºâªº

TOP

¥»©«³Ì«á¥Ñ adrian_9832 ©ó 2019-12-15 20:02 ½s¿è

¦pªG·Q²M·¡¤@ÂI ¥i¥Hµ¹¥L ©w©ú  ¬O¦r¦êÁÙ¬O¼Æ¦r


¥i¥H§ï¦¨¦p¤U¨Ò¤l , ¦]¬°§Ú¤£¤Óª¾¹D§A¬O·Q ³s±µ¦r¦ê ÁÙ¬O­pºâ  ©u«×¥N¸¹ .....

Sub Macro10()

¤½¥q¥N¸¹ = 2330
¦~«×¥N¸¹ = 2010
¤ë¥÷¥N¸¹ = 3
    If (¤ë¥÷¥N¸¹ = 3 Or 4) Then
      '©u«×¥N¸¹ = 2010 - 1 & ³s±µ¦r¦ê 4
      '§Y¬O 20094
      ©u«×¥N¸¹ = ¦~«×¥N¸¹ - 1 & "4"
      MsgBox ©u«×¥N¸¹
    End If
end sub

¤j®a¤¬¬ÛÀ°§U ¤¬¬Û¥æ¬y ´N¾Ç·|¤F EXCEL¤F ¥[ªo

TOP

¦^´_ 1# verify9k


ÁÂÁÂÀ°¦£!!

TOP

¦^´_ 3# adrian_9832


     ÁÂÁÂÀ°¦£!!

TOP

        ÀR«ä¦Û¦b : ¤â¤ß¦V¤U¬O§U¤H¡A¤â¤ß¦V¤W¬O¨D¤H¡F§U¤H§Ö¼Ö¡A¨D¤Hµh­W¡C
ªð¦^¦Cªí ¤W¤@¥DÃD