"User3616725" से उत्तर देने के संबंध में संभावित समस्या:
विंडोज 8.1 पर Im और "user3616725" से स्वीकृत उत्तर से जुड़े VBA कोड के साथ एक समस्या प्रतीत होती है:
Sub CopyCellContents()
' !!! IMPORTANT !!!:
' CREATE A REFERENCE IN THE VBE TO "Microsft Forms 2.0 Library" OR "Microsft Forms 2.0 Object Library"
' DO THIS BY (IN VBA EDITOR) CLICKING TOOLS -> REFERENCES & THEN TICKING "Microsoft Forms 2.0 Library" OR "Microsft Forms 2.0 Object Library"
Dim objData As New DataObject
Dim strTemp As String
strTemp = ActiveCell.Value
objData.SetText (strTemp)
objData.PutInClipboard
End Sub
विवरण:
ऊपर दिए गए कोड और एक्सेल में सेलबोर्ड पर क्लिपबोर्ड चिपकाने से मुझे दो चिन्ह मिलते हैं, जो प्रश्न चिह्न के साथ वर्गों से बने होते हैं, जैसे: and। नोटपैड में चिपकाने से भी कुछ नहीं दिखता है।
समाधान:
काफी समय तक खोज करने के बाद मुझे उपयोगकर्ता "नेगुमुक" से एक और वीबीए स्क्रिप्ट मिली, जो विंडोज एपीआई का उपयोग करती है । यहाँ उसका कोड है कि अंत में मेरे लिए काम किया है:
Option Explicit
Private Declare Function OpenClipboard Lib "user32.dll" ( _
ByVal hwnd As Long) As Long
Private Declare Function CloseClipboard Lib "user32.dll" () As Long
Private Declare Function EmptyClipboard Lib "user32.dll" () As Long
Private Declare Function SetClipboardData Lib "user32.dll" ( _
ByVal wFormat As Long, _
ByVal hMem As Long) As Long
Private Declare Function GlobalAlloc Lib "kernel32.dll" ( _
ByVal wFlags As Long, _
ByVal dwBytes As Long) As Long
Private Declare Function GlobalLock Lib "kernel32.dll" ( _
ByVal hMem As Long) As Long
Private Declare Function GlobalUnlock Lib "kernel32.dll" ( _
ByVal hMem As Long) As Long
Private Declare Function GlobalFree Lib "kernel32.dll" ( _
ByVal hMem As Long) As Long
Private Declare Function lstrcpy Lib "kernel32.dll" ( _
ByVal lpStr1 As Any, _
ByVal lpStr2 As Any) As Long
Private Const CF_TEXT As Long = 1&
Private Const GMEM_MOVEABLE As Long = 2
Public Sub Beispiel()
Call StringToClipboard("Hallo ...")
End Sub
Private Sub StringToClipboard(strText As String)
Dim lngIdentifier As Long, lngPointer As Long
lngIdentifier = GlobalAlloc(GMEM_MOVEABLE, Len(strText) + 1)
lngPointer = GlobalLock(lngIdentifier)
Call lstrcpy(ByVal lngPointer, strText)
Call GlobalUnlock(lngIdentifier)
Call OpenClipboard(0&)
Call EmptyClipboard
Call SetClipboardData(CF_TEXT, lngIdentifier)
Call CloseClipboard
Call GlobalFree(lngIdentifier)
End Sub
ऊपर से पहले VBA कोड की तरह इसका उपयोग करने के लिए, उप "Beispiel ()" से बदलें:
Public Sub Beispiel()
Call StringToClipboard("Hallo ...")
End Sub
सेवा:
Sub CopyCellContents()
Call StringToClipboard(ActiveCell.Value)
End Sub
और एक्सेल मैक्रो मेनू के माध्यम से इसे चलाएं जैसे कि स्वीकृत उत्तर से "user3616725" से सुझाव दिया गया है:
Excel में वापस, टूल्स> मैक्रो> मैक्रोज़ पर जाएं और "CopyCellContents" नामक मैक्रो का चयन करें और फिर संवाद से विकल्प चुनें। यहां आप मैक्रो को शॉर्टकट की (जैसे सामान्य कॉपी के लिए Ctrl + c) असाइन कर सकते हैं - मैंने Ctrl + q का उपयोग किया।
फिर, जब आप किसी एकल कक्ष को नोटपैड / जहाँ भी कॉपी करना चाहते हैं, बस Ctrl + q (या जो भी आपने चुना है) करें और फिर अपने चुने हुए गंतव्य में Ctrl + v या संपादित करें> चिपकाएँ।
संपादित करें (2015 में 21 नवंबर को):
@ "डॉटक्टर" से टिप्पणी:
नहीं, यह गंभीरता से कोई नया सवाल नहीं है! मेरी राय में यह स्वीकृत उत्तर के लिए एक अच्छा जोड़ है क्योंकि मेरे उत्तर में उन समस्याओं का समाधान है, जिन्हें आप स्वीकृत उत्तर से कोड का उपयोग करते समय सामना कर सकते हैं। यदि मेरी प्रतिष्ठा अधिक होती, तो मैं एक टिप्पणी करता।
@ टिप्पणी "टेपेमम" से:
हां, आप सही हैं, शीर्षक "समस्या:" से शुरू होने वाले उत्तर भ्रामक हैं। बदल गया: "उपयोगकर्ता3636725" से जवाब देने के संबंध में संभावित समस्या: "। एक टिप्पणी के रूप में मैंने निश्चित रूप से बहुत अधिक कॉम्पैक्ट लिखा होगा।