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

Ãö©ó¡uExcel VBA¡vDDE...

Ãö©ó¡uExcel VBA¡vDDE...

¦p¼ÐÃD¡GÃö©ó¡uExcel VBA ¡vDDE...

§ÚªºExcel±µ¤WDDE¤§«á¡A

¥ÎVBA¼g

Option Explicit
Dim A As String
Dim X As Integer

Private Sub Workbook_Open()
    A = Range("A1")
End Sub

³o¼Ë¤l¼gªk¡A¦bExcelÀɮ׶}±Òªº®É­Ô¡A±µDDEªºA1Àx¦s®æ·|¥ýÅã¥Ü #N/A

µM«á´N·|¥X²{¿ù»~°T®§¡A°õ¦æ¶¥¬q¿ù»~'13

°ÝÃD¬O¥X¦b­þ¸Ì©O¡H

³Â·Ð¦U¦ì¤j¤jªº¸Ñµª¡I

¥»©«³Ì«á¥Ñ c_c_lai ©ó 2015-8-3 06:35 ½s¿è

¦^´_ 1# EGBT
¸Õ¸Õ¬Ý¡G (¦b¨ú±o­È«e¡A¥ý¦æ§PÂ_¹LÂo)
  1.     If IsError(Sheets("Sheet1").Range("A1").Value) Then
  2.         A = ""
  3.     Else
  4.         A = Sheets("Sheet1").Range("A1").Value
  5.     End If
½Æ»s¥N½X

TOP

¤j¤j±z¦n¡G
¤p§Ì­è¸Õ¤F¤@¤U¡A¤@¼Ë¥X²{°õ¦æ¶¥¬q¿ù»~'13
°ÝÃD¦n¹³¬O¥X¦b±µ¤FDDEµM«á¶}±ÒExcelÀɮתº¤@¶}©l
A1·|Åã¥Üµu¼Èªº#N/A
µM«á´N·|¦³¼Æ­È
¦ý¬O³o¤¤¶¡³y¦¨A1¦³°ÝÃD

TOP

¦^´_ 3# EGBT
½Ð¤W¶ÇÀɮסA§Ú¨Ó´ú¸Õ¬Ý¬Ý¡I

TOP

        ÀR«ä¦Û¦b : ¤£­n¤p¬Ý¦Û¤v¡A¦]¬°¤H¦³µL­­ªº¥i¯à¡C
ªð¦^¦Cªí ¤W¤@¥DÃD