एक्सेल 2010 स्क्रॉलबार बहुत दूर चला जाता है


2

मेरी समस्या का वर्णन नीचे दिए गए PrintScreen में किया गया है:

enter image description here

मैंने इंटरनेट पर बहुत खोज की है और लगभग सभी स्रोत शीट के अंत में खाली पंक्तियों को हटाने और दस्तावेज़ को सहेजने के लिए कहते हैं। उदाहरण के लिए जो सुझाया गया है यहाँ (धारा 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

आपने अपनी समस्या का निदान कर लिया है। उपयोगकर्ता ने मैक्रो को संभवतः सफेद स्थान के रूप में परिभाषित किया है, जिसे आप तब दिए गए लिंक पर तकनीक का उपयोग करके रीसेट करते हैं। जब तक आप उन मैक्रो को प्रश्न के भाग के रूप में नहीं दिखाते हैं, तब तक कोई भी मदद करने में सक्षम नहीं होगा।
Tyson

@ टायसन ने मेरे द्वारा उपयोग किए जाने वाले मैक्रोज़ के कोड जोड़े हैं।
Guest

जवाबों:


0

आप किस श्रेणी को कॉल कर रहे हैं जो SortString फ़ंक्शन पर है? यदि यह पूरी शीट से गुजर रहा है तो यह आपके मुद्दे की व्याख्या कर सकता है। एक नामित सीमा का उपयोग करने पर विचार करें, या फिर एक 'गणना' फ़ंक्शन को एम्बेड करें ताकि यह केवल उन पंक्तियों पर चले जो कि आबादी वाले हैं।

क्रोइसैन के बारे में पूछने वाला नहीं ...

हमारी साइट का प्रयोग करके, आप स्वीकार करते हैं कि आपने हमारी Cookie Policy और निजता नीति को पढ़ और समझा लिया है।
Licensed under cc by-sa 3.0 with attribution required.