मुझे ऑनलाइन एक VBA कोड मिला जो एक को खोलता हैआंतरिक (साझा ड्राइव) पीडीएफ दस्तावेज़ पेज IE में (जैसे पीडीएफ फाइल के पेज 8 पर जाता है)। मैं उपयोगकर्ता को क्लिक करने के लिए सेल में पाठ प्रदर्शित करना चाहूंगा (उदा। "देखने के लिए यहां क्लिक करें")।
मुसीबत: वर्तमान में सेल "0" प्रदर्शित करता है और मुझे फंक्शन बार में जाना है और निष्पादित करने के लिए [Enter] पर हिट करना है।
एक्सेल संस्करण: २००३
फंक्शन कॉल:
=GoToPDFpage("S:...x_2011.pdf",8)
VBA कोड:
Function GoToPDFpage(Fname As String, pg As Integer)
Set IE = CreateObject("InternetExplorer.Application")
With IE
.Navigate Fname & "#page=" & pg
.Visible = True
End With
End Function
: संपादित करें:
मैं पाठ प्रदर्शित करने में सक्षम था, लेकिन यह अभी भी एक लिंक नहीं है जैसा मैं चाहता था।
="Click to view" & GoToPDFpage("S:...x_2011.pdf",8)
आपके सहयोग के लिए धन्यवाद।
उत्तर:
जवाब के लिए 0 № 1मेनू की कोशिश करें-> डेटा-> डेटा सत्यापन। 2 टैब में आप अपना संदेश लिख सकते हैं।
जवाब के लिए 0 № 2
यदि आपके पास एक उच्च जटिल कार्यपुस्तिका / कार्यपत्रक नहीं है, तो आप निम्नलिखित प्रयास कर सकते हैं:
निम्नलिखित विशेषताओं के साथ हाइपरलिंक में "देखने के लिए क्लिक करें" सेल को चालू करें।
- इसे स्वयं इंगित करें
- सेल के अंदर का टेक्स्ट हमेशा स्ट्रिंग होना चाहिए पेज = प्लस वह संख्या जो आप पीडीएफ को खोलना चाहते हैं। पेज = 8
फिर वर्कसेट मॉड्यूल पर जाएं और निम्नलिखित कोड पेस्ट करें:
Private Sub Worksheet_FollowHyperlink(ByVal Target As Hyperlink)
If Left(ActiveCell.Value, 4) = "Page" Then
GoToPDFpage Range("A1").Value, Mid(ActiveCell.Value, 6)
"This code asumes that the file address is writen in the cell A1
End If
"
End Sub
"
उपरोक्त लिखित कोड हर बार जब आप कार्यपत्रक में हाइपरलिंक चलाते हैं तो ट्रिगर हो जाएगा।
जैसा कि हाइपरलिंक हमेशा खुद को इंगित करता है, "Activecell.Value" में हमेशा वह पृष्ठ संख्या होगी जिसे आप खोलना चाहते हैं।
मैं यह मान रहा हूं कि आप फ़ाइल पते को सेल A1 में रख सकते हैं। आप इस हिस्से को किसी अन्य सेल को इंगित करने के लिए संशोधित कर सकते हैं। (सहित: वर्तमान हाइपरलिंक, आदि के दाईं ओर सेल)।
यह सबसे अच्छा विकल्प नहीं हो सकता है, लेकिन अगर आपको केवल कुछ ही कोशिकाओं में एक त्वरित सुविधा की आवश्यकता है, तो यह पर्याप्त हो सकता है।
आशा करता हूँ की ये काम करेगा !
संपादित करें: प्रत्येक स्वयं को संदर्भ देने के लिए, आप उन सभी कक्षों का चयन कर सकते हैं, जहां आपके पास लिंक हैं और फिर इस प्रक्रिया को चलाएं:
Sub RefHLink()
Dim xCell As Range
For Each xCell In Selection
ActiveSheet.Hyperlinks.Add Anchor:=xCell, Address:="", SubAddress:= _
xCell.Address, ScreenTip:="Click Here", TextToDisplay:="Page="
Next xCell
End Sub
जवाब के लिए 0 № 3
एक्सेल लिखने के बारे में कैसे एक बैच फ़ाइल तो यह चल रहा है?
* पीडीएफ और AcroRd32.exe के लिए पथ संपादित करें
Sub batfile()
Dim retVal
filePath = "pathpdf.bat"
pg = 2
Open filePath For Output As #1
Print #1, "Start /Max /w " & Chr(34) & "Current E-book" & Chr(34) & " " & Chr(34) & "C:Program Files (x86)AdobeReader 11.0ReaderAcroRd32.exe" & Chr(34) & " /a " & Chr(34) & "page=" & pg & Chr(34) & " " & Chr(34) & "H:DocumentsRPGDragonlanceNew folderSample File.pdf" & Chr(34) & ""
Close #1
retVal = Shell(strFilePath)
End Sub