मेरी समस्या का वर्णन नीचे दिए गए PrintScreen में किया गया है:
मैंने इंटरनेट पर बहुत खोज की है और लगभग सभी स्रोत शीट के अंत में खाली पंक्तियों को हटाने और दस्तावेज़ को सहेजने के लिए कहते हैं। उदाहरण के लिए जो सुझाया गया है यहाँ (धारा 2 एफ देखें)।
कभी-कभी यह काम करता है, लेकिन अधिकांश समय ऐसा नहीं होता है!
मुझे नहीं पता कि यह प्रासंगिक जानकारी है या नहीं, लेकिन मेरे एक्सेल दस्तावेज़ में तीन उपयोगकर्ता-परिभाषित मैक्रोज़ शामिल हैं, जिनमें दो शामिल हैं जिन्हें प्रारूपण के साथ करना है। शीट "नोट्स ए" में कई टिप्पणियां हैं, उनमें से ज्यादातर पृष्ठभूमि के रूप में चित्रों के साथ हैं। इसके अलावा, मेरे दस्तावेज़ को संरक्षित नहीं किया गया है, इसलिए मुझे नहीं लगता कि समस्या यह है कि अतिरिक्त लाइनें लॉक हैं।
क्या इसका कोई निश्चित समाधान है?
जोड़ा गया: यहाँ मेरे तीन मैक्रोज़ के कोड हैं।
मॉड्यूल 1: यह एक मैक्रो है जो वर्णानुक्रम में किसी शब्द के अक्षरों की स्ट्रिंग को सॉर्ट करता है। उदाहरण के लिए, इसे हेलो वाले सेल में लागू करने से आउटपुट के रूप में ईएचएलएलओ मिलेगा।
Option Compare Text
Function SortString(ByVal iRange, Optional Croissant As Boolean = True)
'Trevor Shuttleworth, mpep, modifié fs, mpfe
Dim i%, j%, sTemp$
For j = 1 To Len(iRange) - 1
For i = 1 To Len(iRange) - 1
If Mid(iRange, i, 1) > Mid(iRange, i + 1, 1) Then
sTemp = Mid(iRange, i, 1)
Mid(iRange, i, 1) = Mid(iRange, i + 1, 1)
Mid(iRange, i + 1, 1) = sTemp
End If
Next
Next
If Croissant = False Then
For i = Len(iRange) To 1 Step -1
SortString = SortString & Mid(iRange, i, 1)
Next
Exit Function
End If
SortString = iRange
End Function
मॉड्यूल 2: यह एक मैक्रो है जो स्वचालित रूप से शब्दों से युक्त टिप्पणियों का आकार बदलता है।
Sub Fitrangecomments()
'Updateby20140325
Dim rng As Range
Dim WorkRng As Range
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
For Each rng In WorkRng
If Not rng.Comment Is Nothing Then
rng.Comment.Shape.TextFrame.AutoSize = True
End If
Next
End Sub
मॉड्यूल 3: यह एक मैक्रो है जो उपयोगकर्ता को एक टिप्पणी के लिए एक पृष्ठभूमि छवि चुनने के लिए कहता है और यह छवि आयामों से मेल खाने के लिए टिप्पणी का स्वचालित रूप से आकार बदलता है।
Sub InsertComment()
Dim strImagePath As Variant
Dim objImage As Object
strImagePath = Application.GetOpenFilename("Picture, *.jpg; *.png; *.bmp")
If strImagePath = False Then Exit Sub
Set objImage = CreateObject("WIA.ImageFile")
objImage.LoadFile strImagePath
With ActiveCell
If .Comment Is Nothing Then .AddComment ("")
.Comment.Shape.Fill.UserPicture strImagePath
.Comment.Shape.Height = objImage.Height * 0.75
.Comment.Shape.Width = objImage.Width * 0.75
End With
End Sub