मैं Excel VBA 2010 में IF-THEN कथन में चेकबॉक्स का उपयोग कैसे करूं?

मुझे IF-THEN कथन के लिए चेकबॉक्स के मान का उपयोग करने की आवश्यकता है। उपयोगकर्ता द्वारा जांच की जाने वाली चीज़ों के आधार पर, चीजों की गणना करने के तरीके को बदलने के तरीके। हालांकि, मैं यह नहीं समझ सकता कि चेकबॉक्स मानों का उपयोग कैसे करें, या उन्हें कैसे पहचानें। यहाँ कोड मैं अब तक है: सिर्फ एक परीक्षण के रूपमैं Excel VBA 2010 में IF-THEN कथन में चेकबॉक्स का उपयोग कैसे करूं?

Private Sub Workbook_Open() 
    Range("E1:F7,A1:A4,B1:B4,C1:C3").Select 
    With Selection.Borders(xlEdgeLeft) 
     .LineStyle = xlContinuous 
     .ColorIndex = 0 
     .TintAndShade = 0 
     .Weight = xlThin 
    End With 
    With Selection.Borders(xlEdgeTop) 
     .LineStyle = xlContinuous 
     .ColorIndex = 0 
     .TintAndShade = 0 
     .Weight = xlThin 
    End With 
    With Selection.Borders(xlEdgeBottom) 
     .LineStyle = xlContinuous 
     .ColorIndex = 0 
     .TintAndShade = 0 
     .Weight = xlThin 
    End With 
    With Selection.Borders(xlEdgeRight) 
     .LineStyle = xlContinuous 
     .ColorIndex = 0 
     .TintAndShade = 0 
     .Weight = xlThin 
    End With 
    With Selection.Borders(xlInsideVertical) 
     .LineStyle = xlContinuous 
     .ColorIndex = 0 
     .TintAndShade = 0 
     .Weight = xlThin 
    End With 
    With Selection.Borders(xlInsideHorizontal) 
     .LineStyle = xlContinuous 
     .ColorIndex = 0 
     .TintAndShade = 0 
     .Weight = xlThin 
    End With 
    Range("A1").Select 
    Range("A1") = "Time" 
    Range("B1") = "Specimen Shape" 
    Range("C1") = "Data Type" 
    Range("A1:C1").Font.Bold = True 
    Range("E1") = "Owner" 
    Range("E2") = "Experiment Date" 
    Range("E3") = "Specimen ID" 
    Range("E4") = "Contaminant" 
    Range("E5") = "Leachant" 
    Range("E6") = "Temperature" 
    Range("E7") = "Regression Title" 
    Range("E1:E7").Font.Bold = True 
    Columns("A:E").EntireColumn.EntireColumn.Autofit 
    'Formatting Column A 
    Columns("A").EntireColumn.ColumnWidth = 9.71 
    ActiveSheet.CheckBoxes.Add(4, 14.5, 72, 17.25).Select 
    Selection.Characters.Text = "Days" 
    Range("A6").Select 
    ActiveSheet.CheckBoxes.Add(4, 30.5, 73.5, 17.25).Select 
    Selection.Characters.Text = "Hours" 
    ActiveSheet.CheckBoxes.Add(4, 45.75, 52.5, 17.25).Select 
    Selection.Characters.Text = "Minutes" 
    'Formatting Column B 
    ActiveSheet.CheckBoxes.Add(58, 14.5, 72, 17.25).Select 
    Selection.Characters.Text = "Cylinder" 
    ActiveSheet.CheckBoxes.Add(58, 30.5, 73.5, 17.25).Select 
    Selection.Characters.Text = "Wafer" 
    ActiveSheet.CheckBoxes.Add(58, 45.75, 52.5, 17.25).Select 
    Selection.Characters.Text = "Irregular" 
    'Formatting Column C 
    Columns("C").EntireColumn.ColumnWidth = 12.71 
    ActiveSheet.CheckBoxes.Add(140.5, 14.5, 72, 17.25).Select 
    Selection.Characters.Text = "Incremental" 
    ActiveSheet.CheckBoxes.Add(140.5, 30.5, 72, 17.25).Select 
    Selection.Characters.Text = "Cumulative" 
    Columns("F").EntireColumn.ColumnWidth = 60 
    Range("A1:C1").HorizontalAlignment = xlCenter 
    Range("F1").Select 
    Dim btn As Button 
    Dim rng As Range 
    With Worksheets("Sheet1") 
     Set rng = .Range("A9:C9") 
      Set btn = .Buttons.Add(rng.Left, rng.Top, rng.Width, rng.Height) 
     With btn 
      .Caption = "After making your selections above, click this button to continue." 
      .AutoSize = True 
      .OnAction = "DataInput" 
     End With 
    End With 
End Sub

क्या मैं इसे करना चाहते हैं, अगर "टाइम" चेकबॉक्स चयनित है, और फिर बटन जारी रखने के लिए दबाया जाता है है, मैं इसे देखना चाहते IF-THEN कथन का उपयोग करके "YAY" जैसी कुछ कहने के लिए। यदि "टाइम" चेकबॉक्स चेक नहीं किया गया है और आप जारी रखें दबाते हैं, तो मैं इसे "AWW ..." कहूंगा।

यही वह है जो मैंने ऐसा करने की कोशिश की, और यह काम नहीं कर रहा है।

Sub DataInput() 
    If ActiveSheet.Shapes.Range(Array("Check Box 1")).Value = True Then 
    MsgBox ("Yay") 
    Else: MsgBox ("Aww") 
    End If 
End Sub

मैं क्या गलत कर रहा हूं?

स्रोत

2012-08-16 TheTreeMan

If Sheets("Sheet1").OLEObjects("CheckBox1").Object.Value = True Then

मेरा मानना है कि टिम सही है। आपके पास एक फॉर्म कंट्रोल है। उस के लिए आप इस

If ActiveSheet.Shapes("Check Box 1").ControlFormat.Value = 1 Then

स्रोत

2012-08-16 16:14:12

मैं एक त्रुटि है, "वर्कशीट वर्ग के OLEObjects संपत्ति प्राप्त करने में असमर्थ"। ? – TheTreeMan

1) क्या आपने प्रासंगिक शीट नाम के साथ "शीट 1" को प्रतिस्थापित किया था? 2) क्या आपने प्रासंगिक चेकबॉक्स नाम के साथ "चेकबॉक्स 1" को प्रतिस्थापित किया था? –

हां, यह अभी भी काम नहीं करता है: \ मैंने बस "चेकबॉक्स 1" को देखा, जब से मैंने मैक्रो रिकॉर्ड किया और चेकबॉक्स हटा दिया, मैक्रो था: 'ActiveSheet.Shapes.Range (Array ("चेक बॉक्स 1"))। – TheTreeMan

आप कुछ इस तरह की कोशिश कर सकते हैं ....

Dim cbTime 

Set cbTime = ActiveSheet.CheckBoxes.Add(100, 100, 50, 15) 
With cbTime 
    .Name = "cbTime" 
    .Characters.Text = "Time" 
End With 

If ActiveSheet.CheckBoxes("cbTime").Value = 1 Then 'or just cbTime.Value 
    'checked 
Else 
    'unchecked 
End If

स्रोत

2012-08-16 16:36:09

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

मैन्युअल: चेकबॉक्स पर राइट क्लिक करें, प्रारूप चुनें, लिंक किए गए सेल बॉक्स में क्लिक करें, और चेकबॉक्स मान रखने के लिए सेल का चयन करें।

कोड में:

Set cbTime = ActiveSheet.CheckBoxes.Add(100, 100, 50, 15) 
With cbTime 
    .Value = xlOff ' = unchecked xlOn = checked 
    .LinkedCell = "$A$1" 
End With

स्रोत

2012-10-27 14:50:21

Sub Datainput() 
'Checkbox values are 0 (false), 1 (true), 2 (changed or grey) 
    If activesheet.CheckBoxes("Check Box 1").value = 1 then 
     Msgbox ("Yay") 
     Else: Msgbox("Aww") 
    End if 
End Sub

स्रोत

2014-01-16 14:33:57 Zach

मैं Excel VBA 2010 में IF-THEN कथन में चेकबॉक्स का उपयोग कैसे करूं?

उत्तर

संबंधित मुद्दे