मुख्य सामग्री पर जाएं

सेल पर क्लिक करके सेल वैल्यू कैसे बदलें?

लेखक: ज़ियाओयांग अंतिम संशोधित: 2020-07-03

क्या एक्सेल में किसी सेल पर क्लिक करके सेल वैल्यू को बदलना हमारे लिए संभव है? उदाहरण के लिए, जब आप किसी विशिष्ट सेल A1 पर पहली बार क्लिक करते हैं, तो यह एक टेक्स्ट "एक्सेल" दिखाता है, यदि आप A1 पर दोबारा क्लिक करते हैं, तो एक टेक्स्ट "वर्ड" प्रदर्शित होता है, और जब आप इसे क्लिक करते हैं तो एक टेक्स्ट "आउटलुक" प्रदर्शित होता है। तीसरी बार में सेल. इस स्थिति में, सेल A1 में मान "एक्सेल" से "वर्ड" से "आउटलुक" से "एक्सेल" तक आवर्ती होगा ... जैसा कि निम्नलिखित स्क्रीनशॉट में दिखाया गया है:

क्लिक 1 द्वारा दस्तावेज़ का मान बदलें

VBA कोड वाले सेल पर क्लिक करके सेल मान बदलें

तीर नीला दायां बुलबुला VBA कोड वाले सेल पर क्लिक करके सेल मान बदलें

एक्सेल में इस कार्य को पूरा करने के लिए, निम्नलिखित वीबीए कोड आपकी मदद कर सकता है, कृपया निम्नानुसार कार्य करें:

1. उस शीट टैब पर राइट क्लिक करें जिस पर क्लिक करके आप सेल वैल्यू बदलना चाहते हैं और चुनें कोड देखें संदर्भ मेनू से, और खुले में अनुप्रयोगों के लिए माइक्रोसॉफ्ट विज़ुअल बेसिक विंडो, निम्न कोड को कॉपी करें और रिक्त मॉड्यूल में पेस्ट करें:

VBA कोड: सेल पर क्लिक करके सेल मान बदलें:

Private Sub Worksheet_SelectionChange(ByVal Target As Excel.Range)
'Updateby Extendoffice
  Application.EnableEvents = False
  With Target
  If .Address = Range("A1").Address Then
    Select Case .Value
      Case "Excel"
        .Value = "Word"
      Case "Word"
        .Value = "Outlook"
      Case "Outlook"
        .Value = "Excel"
      Case Else
        .Value = "Word"
    End Select
  End If
  End With
  Range("A2").Select
  Application.EnableEvents = True
End Sub

क्लिक 2 द्वारा दस्तावेज़ का मान बदलें

नोट: उपरोक्त कोड में, A1 वह सेल है जहां आप क्लिक करके मान बदलना चाहते हैं, "एक्सेल","शब्द","आउटलुक"वे सेल मान हैं जिन्हें आप बार-बार प्रदर्शित करना चाहते हैं, आप उन्हें अपनी आवश्यकता के अनुसार बदल सकते हैं।

2. कोड पेस्ट करने के बाद कोड को सेव करें और विंडो बंद कर दें। अब, जब आप पहली बार सेल A1 पर क्लिक करते हैं, तो टेक्स्ट "एक्सेल" एक बार में प्रदर्शित होता है, इसे फिर से क्लिक करें, टेक्स्ट "वर्ड" दिखाई देता है, यदि आप इसे तीसरी बार क्लिक करते हैं तो टेक्स्ट "आउटलुक" दिखाया जाता है। स्क्रीनशॉट देखें:

क्लिक 1 द्वारा दस्तावेज़ का मान बदलें

अधिक संबंधित लेख:

Excel में केवल सेल सामग्री पर क्लिक करके डेटा कैसे फ़िल्टर करें?

एक्सेल में हेडर पर क्लिक करके कॉलम डेटा को कैसे सॉर्ट करें?

सर्वोत्तम कार्यालय उत्पादकता उपकरण

🤖 कुटूल्स एआई सहयोगी: निम्न के आधार पर डेटा विश्लेषण में क्रांति लाएं: बुद्धिमान निष्पादन   |  कोड जनरेट करें  |  कस्टम फ़ॉर्मूले बनाएं  |  डेटा का विश्लेषण करें और चार्ट बनाएं  |  कुटूल फ़ंक्शंस का आह्वान करें...
लोकप्रिय सुविधाएँ: डुप्लिकेट ढूंढें, हाइलाइट करें या पहचानें   |  रिक्त पंक्तियाँ हटाएँ   |  डेटा खोए बिना कॉलम या सेल को संयोजित करें   |   फॉर्मूला के बिना गोल ...
सुपर लुकअप: एकाधिक मानदंड VLookup  |   मल्टीपल वैल्यू वीलुकअप  |   अनेक शीटों में VLookup   |   फजी लुकअप ....
उन्नत ड्रॉप-डाउन सूची: शीघ्रता से ड्रॉप डाउन सूची बनाएं   |  आश्रित ड्रॉप डाउन सूची   |  बहु-चयन ड्रॉप डाउन सूची ....
स्तम्भ प्रबंधक: कॉलमों की एक विशिष्ट संख्या जोड़ें  |  कॉलम ले जाएँ  |  छिपे हुए कॉलम की दृश्यता स्थिति टॉगल करें  |  रेंज और कॉलम की तुलना करें ...
फीचर्ड फीचर्स: ग्रिड फोकस   |  डिजाइन देखें   |   बड़ा फॉर्मूला बार   |  कार्यपुस्तिका एवं शीट प्रबंधक   |  संसाधन लाइब्रेरी (ऑटो टेक्स्ट)   |  खजूर बीनने वाला   |  कार्यपत्रकों को संयोजित करें   |  एन्क्रिप्ट/डिक्रिप्ट सेल   |  सूची के अनुसार ईमेल भेजें   |  सुपर फ़िल्टर   |   विशेष फ़िल्टर (फ़िल्टर बोल्ड/इटैलिक/स्ट्राइकथ्रू...) ...
शीर्ष 15 टूलसेट:  12 टेक्स्ट टूल्स (पाठ जोड़ें, अक्षर हटाएँ, ...)   |   50 + चार्ट प्रकार (गैन्ट चार्ट, ...)   |   40+ प्रैक्टिकल सूत्र (जन्मदिन के आधार पर आयु की गणना करें, ...)   |   19 निवेशन टूल्स (QR कोड डालें, पथ से चित्र सम्मिलित करें, ...)   |   12 रूपांतरण टूल्स (शब्दों को संख्याएँ, मुद्रा रूपांतरण, ...)   |   7 विलय और विभाजन टूल्स (उन्नत संयोजन पंक्तियाँ, विभाजन कोशिकाओं, ...)   |   ... और अधिक

एक्सेल के लिए कुटूल के साथ अपने एक्सेल कौशल को सुपरचार्ज करें, और पहले जैसी दक्षता का अनुभव करें। एक्सेल के लिए कुटूल उत्पादकता बढ़ाने और समय बचाने के लिए 300 से अधिक उन्नत सुविधाएँ प्रदान करता है।  वह सुविधा प्राप्त करने के लिए यहां क्लिक करें जिसकी आपको सबसे अधिक आवश्यकता है...

Description

ऑफिस टैब ऑफिस में टैब्ड इंटरफ़ेस लाता है, और आपके काम को बहुत आसान बनाता है

  • Word, Excel, PowerPoint में टैब्ड संपादन और रीडिंग सक्षम करें, प्रकाशक, एक्सेस, विसियो और प्रोजेक्ट।
  • नई विंडो के बजाय एक ही विंडो के नए टैब में एकाधिक दस्तावेज़ खोलें और बनाएं।
  • आपकी उत्पादकता 50% बढ़ जाती है, और आपके लिए हर दिन सैकड़ों माउस क्लिक कम हो जाते हैं!
Comments (7)
No ratings yet. Be the first to rate!
Tanner
Tanner
This comment was minimized by the moderator on the site
This is great information, thanks for everyone's input! Is there away to apply this same type of approach with a lookup or index\match value?

For example, if I click on a value in A1, can the VBA be configured to index that value in another worksheet column, and display a matched value in B1? Thank you again!
Reply
0
0
JGoode
JGoode
This comment was minimized by the moderator on the site
https://www.extendoffice.com/documents/excel/3573-excel-type-in-cell-without-double-clicking.html
Reply
0
0
Zack
Zack
This comment was minimized by the moderator on the site
I am trying to apply this to an entire column of individual cells, not just one cell. Is this possible? When I change the range from "A1" to "A1:A100" nothing happens when I click the cells in that range.
Reply
0
0
kfairhurst
kfairhurst     Zack
This comment was minimized by the moderator on the site
This is the final code that worked for me.  I use it to check a cell when an item is completed.
Private Sub Worksheet_SelectionChange(ByVal Target As Range)
  Application.EnableEvents = False
    With Target
      Dim KeyCells As Range
      Set KeyCells = Range("D6:D8000")
      If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then
        Select Case .Value
          Case "ü"
            .Value = ""
          Case ""
            .Value = "ü"
        End Select
      End If
    End With
  Application.EnableEvents = True
End Sub
Reply
Report
0
0
Kalle
Kalle     Zack
This comment was minimized by the moderator on the site
You can do that by declaring the range you want to have as KeyCells and than put that into the Application.Intersection Method. This will let you change the Value of your choice from all the cells. Worked for me but i am bad at explaining ^^


Application.EnableEvents = False
With Target


Dim KeyCells as Range

Set KeyCells = Range("A1:A100")

If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then

Select Case .Value

...
Reply
0
0
Kalle
Kalle     Zack
This comment was minimized by the moderator on the site
You can do that by declaring the range you want to have as KeyCells and than put that into the Application.Intersection Method. This will let you change the Value of your choice from all the cells. Worked for me but i am bad at explaining ^^

Dim KeyCells as Range

Set KeyCells = Range("A1:A100")

If Not Application.Intersect(KeyCells, Range(Target.Address)) Is Nothing Then

Select Case .Value

...
Reply
0
0
Paji Shoitan
Paji Shoitan     Zack
This comment was minimized by the moderator on the site
I did it but i will not tell anyone MUWAHAHAHAHAHAHAHAHAHA
Reply
0
0
There are no comments posted here yet
Please leave your comments in English
Guest
Posting as Guest
×
Rate this post:
Reset
0   Characters
Suggested Locations