《别怕,Excel VBA其实很简单(第2版)》的原文摘录

  • Optional Explicit Sub test() a = " i am variant??" MsgBox a End Sub (查看原文)
    毛茸大师🐶 2017-06-15 22:05:17
    —— 引自章节:3
  • Sub szbn() Dim str As String str=" learn VBA!" Range("A1").Value=str End Sub (查看原文)
    毛茸大师🐶 2017-06-15 22:05:17
    —— 引自章节:3
  • Sub dxbn() Dim rng As Range Set rng=Worksheets("Sheet1").Range("A1") rng.value="learn excel vba" End sub. (查看原文)
    毛茸大师🐶 2017-06-15 22:05:17
    —— 引自章节:3
  • Const p As Single=3.14 (查看原文)
    毛茸大师🐶 2017-06-15 22:05:17
    —— 引自章节:3
  • Public 数组名(a to b) As 数据类型 Dim 数组名(a to b) As数据类型 (查看原文)
    毛茸大师🐶 2017-06-15 22:05:17
    —— 引自章节:3
  • Dim 七班(1to50)As String 七班(1)="李雷" 七班(2)="韩梅梅" ... 七班(50)="吉格林" (查看原文)
    毛茸大师🐶 2017-06-15 22:05:17
    —— 引自章节:3
  • Dim arr(49) As String (查看原文)
    毛茸大师🐶 2017-06-15 22:05:17
    —— 引自章节:3
  • Sub dwsz() Dim 七年级(1 to 8, 1 to 50) As String 七年级(7,30)="路西" End sub (查看原文)
    毛茸大师🐶 2017-06-15 22:05:17
    —— 引自章节:3
  • Sub dtsz() dim arr() as string dim n as string '统计A列有多少个非空单元格 n=application.worksheetfunction.counta(range("A:A")) redim arr(1 to n) as string end sub (查看原文)
    毛茸大师🐶 2017-06-15 22:05:17
    —— 引自章节:3
  • Sub arraytest() dim arr as variant '将1到10十个自然数赋给数组arr arr=array(1,2,3,4,5,6,7,8,9,10) MsgBox "arr数组的第2个元素为:" & arr(1) end sub (查看原文)
    毛茸大师🐶 2017-06-15 22:05:17
    —— 引自章节:3
  • sub splittest() dim arr as variant '利用split生成数组 arr=split("刘大,陈二,张三,李四,王五,赵六", ",") MsgBox "arr数组的第2个元素为:" & arr(1) end sub (查看原文)
    毛茸大师🐶 2017-06-15 22:05:17
    —— 引自章节:3
  • sub rngarr() dim arr as variant arr= range("A1:C3").value range("E1:G3").value=arr end sub (查看原文)
    毛茸大师🐶 2017-06-15 22:05:17
    —— 引自章节:3
  • UBound(arr) LBound(arr) Ubound(arr)-Lbound(arr)+1 (查看原文)
    毛茸大师🐶 2017-06-15 22:05:17
    —— 引自章节:3
  • Sub arrcount() dim arr(10 to 50) '定义数组 MsgBox "数组的最大索引号:" & UBound(arr) & Chr(13)_ & "数组的最小索引号:" & LBound(arr) & Chr(13)_ & "数组的元素个数:" & Ubound(arr)-Lbound(arr)+1 end sub (查看原文)
    毛茸大师🐶 2017-06-15 22:05:17
    —— 引自章节:3
  • Sub dwsz() dim arr(1 to 10, 1 to 100) MsgBox "第一维的最大索引号:" & Ubound(arr, 1) & Chr(13) & _ "第二维的最小索引号:" & Lbound(arr,2) end sub (查看原文)
    毛茸大师🐶 2017-06-15 22:05:17
    —— 引自章节:3
  • sub jointest() dim arr as variant, txt as string arr=array(0,1,2,3,4,5,6,7,8,9) txt=join(arr,"@") MsgBox txt end sub (查看原文)
    毛茸大师🐶 2017-06-15 22:05:17
    —— 引自章节:3
  • range("A1").value=arr(23) (查看原文)
    毛茸大师🐶 2017-06-15 22:05:17
    —— 引自章节:3
  • sub arrtorng1() dim arr as variant arr=array(1,2,3,4,5,6,7,8,9) '将数组批量写入单元格 range("A1:A9").value=application.worksheetfunction.transpose(arr) end sub (查看原文)
    毛茸大师🐶 2017-06-15 22:05:17
    —— 引自章节:3
  • sub arrtorng2() dim arr (1 to 2, 1 to 3) as string '定义2行3列的二维数组 arr(1,1)=1 arr(1,2)="刘大" arr(1,3)="男" arr(2,1)=2 arr(2,2)="陈二" arr(2,3)="女" range("A1:C2").value=arr end sub (查看原文)
    毛茸大师🐶 2017-06-15 22:05:17
    —— 引自章节:3
  • Application Workbooks ("Book1"). Worksheets("sheet2"). Range ("A2") Worksheeets("sheet2").Range("A2").Font.Color (查看原文)
    毛茸大师🐶 2017-06-15 22:05:17
    —— 引自章节:3