मेरे पास निम्न कोड है जो उपयोगकर्ता को सेल मान पर क्लिक करने के लिए प्रेरित करता है।

Dim sDate As Range
On Error Resume Next
    Application.DisplayAlerts = False
        Set sDate = Application.InputBox(Prompt:= _
            "Please select start date.", _
                Title:="Start Date", Type:=8)
On Error GoTo 0
    Application.DisplayAlerts = True
    If sDate Is Nothing Then
        Exit Sub
    Else
        sDate.Font.Bold = True
    End If
End Sub

इनपुट बॉक्स हालांकि एक बार मूल्य का चयन करने के बाद उदाहरण के लिए कहें कि मैं बी 3 डिस्प्ले $ बी $ 3 पर क्लिक करता हूं। मैं उस मान को प्रदर्शित करना चाहता हूं जो $b$3 के अंदर है। उदाहरण के लिए यदि 17-जून $b$3 के अंदर था तो इसे 17-जून प्रदर्शित करना चाहिए न कि इनपुट बॉक्स में $b$3।

0
Jack 23 अगस्त 2017, 21:04

3 जवाब

सबसे बढ़िया उत्तर

एक अन्य उत्तर UserForm का उपयोग करना है।

एक यूजरफॉर्म बनाएं, जैसे:

enter image description here

नोट: "ओके" बटन को "ओके" नाम दिया गया है, और सफेद टेक्स्ट बॉक्स "डेटबॉक्स" है

फॉर्म कोड के लिए, उपयोग करें:

Private Sub Ok_Click()
ActiveCell.Font.Bold = True
UserForm1.Hide
End Sub

फिर वर्कशीट मॉड्यूल में इसे डालें:

Private Sub Worksheet_SelectionChange(ByVal Target As Range)
    If Target.Cells.Count = 1 Then UserForm1.dateBox.Value = Target.Value
End Sub
Sub bold_Date2()
UserForm1.Show vbModeless
End Sub

फिर bold_date2() चलाएँ:

enter image description here

2
BruceWayne 23 अगस्त 2017, 21:53

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

आप इसे पहले चयनित सेल संदर्भ प्राप्त करके प्राप्त कर सकते हैं, किसी भी फ़ॉन्ट शैली को सेट करने के लिए Font संपत्ति का उपयोग करें और इसकी सामग्री प्राप्त करने के लिए इसकी Value संपत्ति पढ़ें।

 Set sDate = Application.InputBox(Prompt:= _
            "Please select start date.", _
                Title:="Start Date", Type:=8)

    sDate.Font.Bold = True
    MsgBox ("Selected cell's value is: " & sDate.Value)
0
M_Idrees 23 अगस्त 2017, 21:27

यह आपके लिए कैसे काम करता है?

Sub bold_Date()
Dim sDate   As Range
On Error Resume Next
Application.DisplayAlerts = False
Set sDate = Application.InputBox(Prompt:="Please select start date.", Title:="Start Date", Type:=8)

If sDate.Cells.Count > 1 Then Set sDate = sDate.Cells(1, 1)
MsgBox ("Date is: " & sDate.Text)

Application.DisplayAlerts = True

If sDate Is Nothing Then
    Exit Sub
Else
    sDate.Font.Bold = True
End If
End Sub

यह एक श्रेणी का चयन करने के बाद, दिनांक के साथ एक संदेश बॉक्स रखेगा। इसके अलावा, इसमें कई कोशिकाओं के लिए एक चेक है। यदि एक से अधिक सेल चुने गए हैं, तो यह उस श्रेणी के पहले सेल को आपके नए sDate के रूप में उपयोग करता है।

0
BruceWayne 23 अगस्त 2017, 21:28