摘要:
Sub bluejson() 'ok Dim aa Set x = CreateObject("ScriptControl"): x.Language = "JScript" aa = "{""myname"":""Michael"",""myaddress"":{""city"... 阅读全文
摘要:
Sub fill_range_with_optionbuttons()'Erik Van Geit'050520 0138Dim rownr As Long, i As IntegerDim counter As LongDim rng As RangeDim txt(2) As StringDim... 阅读全文
摘要:
Sub 隐藏()Dim sh As ShapeFor Each sh In ActiveSheet.ShapesIf sh.Type = msoFormControl ThenIf sh.FormControlType = xlGroupBox Then sh.Visible = FalseEnd ... 阅读全文
摘要:
To Create a Calculated Field in the Power Pivot Window by using the Calculation AreaClickHome>View>Calculation Area.Click on an empty cell in the Calc... 阅读全文