為何連結抓不到?? - Excelㄧ般區 - 麻辣家族討論版版

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

11^#

發表於 2012-10-29 14:49 | 只看該作者

回復 10# dakiu

若要簡單點的話

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
For jj = 1 To ActiveSheet.Range("A1").CurrentRegion.Rows.Count
u1 = Cells(jj, 1) '001 002 003 之類
u2 = Cells(jj, 2) & "\" ' "目錄 + \"
u3 = Cells(jj, 3) '副檔名
If Dir(u2 & u1 & u3) <> "" Then Cells(jj, 17) = "有檔案" Else Cells(jj, 17) = "無檔案"
Next
End Sub

複製代碼

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

帖子: 47
主題: 11
精華: 0
積分: 76
點名: 0
作業系統: winxp
軟體版本: office2007
閱讀權限: 20
性別: 男
註冊時間: 2010-7-24
最後登錄: 2024-2-5

10^#

發表於 2012-10-29 14:14 | 只看該作者

回復 9# mark15jill

Book2.rar (7.13 KB)

如附件!請大大指點..謝謝!

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

9^#

發表於 2012-10-29 13:50 | 只看該作者

回復 8# dakiu

請先自己練習看看...
或者您試驗完後再把問題點提出來..

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

帖子: 47
主題: 11
精華: 0
積分: 76
點名: 0
作業系統: winxp
軟體版本: office2007
閱讀權限: 20
性別: 男
註冊時間: 2010-7-24
最後登錄: 2024-2-5

8^#

發表於 2012-10-29 13:35 | 只看該作者

回復 7# mark15jill

就是
A B C
檔案名稱 =HYPERLINK("\\ABserver\共用\指示\U\"&A1&".PDF" 如果B欄無法開啟檔案則顯示"查無此檔"，使用IF寫不出來???:'(

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

7^#

發表於 2012-10-29 13:20 | 只看該作者

回復 4# dakiu

判斷? 要判斷什麼.. ?

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

kuoliang123

帖子: 32
主題: 1
精華: 0
積分: 57
點名: 0
作業系統: WINDOWS
軟體版本: XP Office 2003
閱讀權限: 20
性別: 男
來自: 桃園
註冊時間: 2011-6-30
最後登錄: 2014-7-27

6^#

發表於 2012-10-29 13:19 | 只看該作者

=HYPERLINK("\\ABserver\共用\指示\U"&A1&".PDF")

kuoliang

　暱稱: 隨風飄蕩的羽毛
　頭銜: [御用]潛水艇

帖子: 852
主題: 79
精華: 0
積分: 918
點名: 0
作業系統: Windows 7 , XP
軟體版本: Office 2007, Office 2003,Office 2010,YoZo Office
閱讀權限: 50
性別: 男
來自: 宇宙
註冊時間: 2011-4-8
最後登錄: 2024-2-21

5^#

發表於 2012-10-29 13:10 | 只看該作者

回復 3# dakiu

=HYPERLINK("C:\Users\user\Desktop\新增資料夾 (2)\"&A1&".bmp")

你試著把你原本的程式碼
=HYPERLINK("\\ABserver\共用\指示\U",A1&".PDF")
改成
=HYPERLINK("\\ABserver\共用\指示\U"& A1&".PDF") 試看看

  多做多想多學習，少看少錯少迷途

  多做=多多練習，多多編寫。
  多想=想想為什麼人家程式要那樣寫，如果換成自己，又會怎寫。
  多學習=學習人家的發問並解答，學習人家的寫法

  少看=只看不做也枉然

帖子: 47
主題: 11
精華: 0
積分: 76
點名: 0
作業系統: winxp
軟體版本: office2007
閱讀權限: 20
性別: 男
註冊時間: 2010-7-24
最後登錄: 2024-2-5

4^#

發表於 2012-10-29 13:06 | 只看該作者

回復 3# dakiu

=HYPERLINK("\\ABserver\共用\指示\U\"&A1&".PDF")

終於不用VB測試OK!!

但是如何在C欄使用判斷式,如果無法開啟檔案則顯示為異常(IF用不出來)
，不知哪位大大可解惑....感謝!

帖子: 47
主題: 11
精華: 0
積分: 76
點名: 0
作業系統: winxp
軟體版本: office2007
閱讀權限: 20
性別: 男
註冊時間: 2010-7-24
最後登錄: 2024-2-5

3^#

發表於 2012-10-29 12:36 | 只看該作者

回復 2# mark15jill

受教了...感謝您....但不知是否有不用VB的方式...