关于Visual Studio、VC和C++的那些事 首先,这三个东西有什么区别呢?VC和C++是相同的吗,有什么区别呢?我刚开始学C++的时候也有这样的问题,在这里我来替大家解释一下他们到底是什么...
1. 列数据转换成行数据 by:狼版主 原始统计数据.xls https://club.excelhome.net/dispbbs.asp?boardid=2id=292081star=1#1166135 Sub Macro1() Dim i As Long, j As Long, arr, brr, temp, n As Long, k As Long arr = Sheets(原始考勤数...
1. 多行独立排序 by:狼版主 Sub 多行独立排序() Dim I As Long With [B1].Resize(1, [B1].End(xlToRight).Column - 1) For I = 0 To [A1].End(xlDown).Row - 1 .Offset(I, 0).Sort Key1:=[B1].Offset(I, 0), Order1:=xlDescending, Orientatio...
1. 两条直线的交点坐标(单变量求解、Replace、Iif、Like、Evaluate、绝对引用)by:狼版主 直线交点坐标.xls https://club.excelhome.net/dispbbs.asp?boardid=2id=272572star=1#1044619 Sub macro1() Dim q1 As String, q2...
1. 数组重复值的个数为最大 Book1007.xls https://excel.aa.topzj.com/thread-394037-1-1.html Sub zuiduo1009() 2007/10/9 Dim arr, arr2, i%, j%, x$, d As Object, t, n%, k, aa, r1 Sheets(Sheet2).Activate arr = [a1:gh500] 赋值给数组...
1. 数据有效性不重复值 https://club.excelhome.net/dispbbs.asp?boardID=2ID=270071page=1px=0 Sub yy() Dim i%, x(), rng Set d = CreateObject(Scripting.Dictionary) rng = Sheet5.Range(Sheet5.[b2], Sheet5.[b2].End(xlDown)) For i = 1 To UBo...
1. 时间转换DatePart、Choose函数 Sub aa() Dim x%, aa$, Myday, Myr% Myr = [a65536].End(xlUp).Row For x = 2 To Myr Myday = Day(Cells(x, 1)) Cells(x, 2) = Format(VBA.DatePart(ww, Cells(x, 1)), 00) Cells(x, 3) = DatePart(q, Cells(x, 1)) C...
1. 把一组汉字变为一组汉字拼音的第一个字母的自定义函数 By:一念 Option Compare Text Function PY(ByVal rng As Range) Dim i%, k%, str$ str = Replace(Replace(rng, , ), , ) For i = 1 To Len(str) If Mid(str, i, 1) 吖 Th...
1. SQL中用字符串变量和数值型变量 sql中包含并使用变量str (注意该变量是字符串) Private Sub CommandButton7_Click() Dim str As String str = my5 Set conn = New ADODB.Connection: conn.Open dsn=excel files;dbq= ThisWo...
1. SQL中用字符串变量和数值型变量 sql中包含并使用变量str (注意该变量是字符串) Private Sub CommandButton7_Click() Dim str As String str = my5 Set conn = New ADODB.Connection: conn.Open dsn=excel files;dbq= ThisWo...