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

[µo°Ý] ¨D±Ð©ó¦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

        ÀR«ä¦Û¦b : ¡i¥Í©R¦b©I§l¶¡¡j¦òªû»¡¡G¡u¥Í©R¦b©I§l¶¡¡C¡v¤HµLªkºÞ¦í¦Û¤vªº¥Í©R¡A§óµLªk¾×¦í¦º´Á¡AÅý¦Û¤v¥Ã¦í¤H¶¡¡C¬JµM¥Í©R¥h¨Ó³o»òµL±`¡A§Ú­Ì§óÀ³¸Ó¦n¦n¦a·R±¤¥¦¡B§Q¥Î¥¦¡B¥R¹ê¥¦¡AÅý³oµL±`¡BÄ_¶Qªº¥Í©R¡A´²µo¥¦¯uµ½¬üªº¥ú½÷¡A¬M·Ó¥X¥Í©R¯u¥¿ªº»ù­È¡C
ªð¦^¦Cªí ¤W¤@¥DÃD