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

[µo°Ý] ½Ð°Ý¦p¦óÅý§PÂ_Àx¦s®æ,¥i§PÂ_¦h®æ±ø¥ó?

[µo°Ý] ½Ð°Ý¦p¦óÅý§PÂ_Àx¦s®æ,¥i§PÂ_¦h®æ±ø¥ó?

°Ï°ìe3
©m¦Wf3
½s¸¹h3
¥H¤U¥N½X¥i§PÂ_E3¦³¸ê®Æ¤~°õ¦æµ{¦¡,¦ý¦p¦ó§@¥iÅý¥H¤W¤T­ÓÄæ¦ì³£¦³¸ê®Æ¤~°õ¦æ©O?
Private Sub §PÂ__Click()
If Range("E3").Value <> "" Then
     ¦Û°Ê¿é¤J¸ê®Æ
     Unload Me 'Ãö³¬ªí³æ

    Else
         MsgBox "¥¼¿ï¾Ü °Ï°ì¥N¸¹;©m¦W;½s¸¹"
    End If
End Sub

µ¹§A³Ì²³æªº¿ìªk
If Range("E3").Value <> "" Then
'§ï¦¨
If Range("e1").Value <> "" And Range("e2").Value <> "" And Range("e3").Value <> "" Then

TOP

¦^´_ 2# no3-taco
  1. If Range("e1").Value <> "" And Range("e2").Value <> "" And Range("e3").Value <> ""
½Æ»s¥N½X
¦pªG¦³§ó¦h­ÓÀx¦s®æ,·|¼g¨ì²´ªá¤F.
  1. Option Explicit
  2. Sub Ex()
  3.     Dim Rng As Range
  4.     Set Rng = Range("E3, F3, H3")
  5.     'Set Rng = Range("E3, F3, H3,J3,K3,M3") '§ó¦hªºÀx¦s®æ"
  6.     If Application.CountA(Rng) = Rng.Cells.Count Then
  7.         MsgBox Rng.Address(0, 0) & " ³£¦³¸ê®Æ"
  8.     End If
  9. End Sub
½Æ»s¥N½X
·P®¦ªº¤ß......(¦b³Â»¶®a±Ú°Q½×°Ï.¥Î¤ß¾Ç²ß·|¦³¶i¨Bªº)
¦ý¸ê·½µL­­,«á´©¦³­­,  ¤@¤Ñ1¤¸ªºÃÙ§U,¤H¤H¦³¯à¤O.

TOP

¤£¿ù³á¡Aª©¥Dªº¦^µªÁ`¬O¤ñ¸ûÄYÂÔ¡A»°§Ö°½¾Ç°_¨Ó

TOP

¦^´_ 3# GBKEE


    ·PÁÂÀ°¦£ :victory:

TOP

¦^´_ 2# no3-taco


    ÁÂÅo~­ì¨Ó¥u­n¦A¥[AND

TOP

        ÀR«ä¦Û¦b : ¤Ñ¤W³Ì¬ü¬O¬P¬P¡A¤H¥Í³Ì¬ü¬O·Å±¡¡C
ªð¦^¦Cªí ¤W¤@¥DÃD