excle函数技巧

一、假设X1 为Book1, 文件所在路径为D:\MyDocument超链接到此工作簿用Y1= HYPERLINK("[D:\MyDocument\" & X1 & ".xls]",X1)超链接到此工作簿Sheet1的P12用Y1= HYPERLINK("[D:\MyDocument\" & X1 &".xls]Sheet1!$P$12",X1) 点击后直接转到P12单元格，这是你的第2个要求Z1显示对应P12的值：Z1=INDIRECT("'D:\MyDocument\[" & X1 & ".xls]Sheet1'!$P$12") 以上公式可下拉复制。

二、round(100*rand(),0)生成0-100的随机正整数RANDBETWEEN(1,100)生成1-100的随机正整数(须加载分析工具库才能用此函数）---------------------------------你生成的随机正整数需要不重复么？个数？如果只是总合固定，最后一个数用总和来减就出来了。

不重复的话要可以参考这个公式生成：（生成50个随机正整数，在b1:b50输入=rand(),A1=INDEX(ROW($1:$50),MATCH(SMALL($B$1:$B$50,ROW(1:1)),$B$1:$B $50,))下拉。

三、也不知道你的具体要求，假设产生10个[1,10]的正整数，使其总和等于50，然后把它们赋给sheet1的第一列中，可以在sheet1的宏里面编辑以下代码：Sub aa()Dim i As Integer, sum As Integer, a(10) As IntegerDoRandomize '可使每次产生的随机数不同sum = 0For i = 1 To 10 '产生10个随机数a(i) = Int(Rnd * (10-1+1)) + 1 '产生[1，10]的随机数sum = sum + a(i)NextIf sum = 50 Then '令其和等于50Exit DoEnd IfLoopFor i = 1 To 10Cells(i, 1) = a(i) '赋值给单元格NextEnd Sub你可根据要求修改代码，每运行一次就会产生一组符合你要求的数假定要在C1:C20产生20个1到20的随机正整数，使其总和为200。

在C1输入：=1+INT(RAND()*20)，下拉复制至C19，在C20输入公式：=200-SUM(C1:C19) C21输入公式：=SUM(C1:C20)做验证。

若C20不在1到20范围内，则按F9重新计算，直至C20是1到20内的某个数。

五、我是想在表格中随机生成100个06：00：00到24：00：00之间的时间，要带秒的。

有没有一个公式向下拉可以搞定的呀=INT(INT(RAND()*1080)/60)&":"&MOD(INT(RAND()*1080),60)不错，，可是最好是能显示例23:25:38这样的时间啊=TEXT(TIME(INT(RAND()*19)+6,INT(RAND()*60),INT(RAND()*60)),"HH:MM:SS")六、excel中1-500无重复的整数随机函数'用法：打开excel文档，然后按alt+f11进入vbe编辑窗口，插入模块'然后把下面的代码复制到模块里面，然后保存，再次按alt+f11返回'excel窗口，按alt+f8，运行suijishu宏就可以在当前表格a1-a500'产生不重复的1-500个随机数，希望对你有用，代码已亲测通过,----------------代码如下-------------------Sub suijishu()Dim t, i, sjs(500)For t = 1 To 500Randomizesjs(t) = Int(500 * Rnd) + 1For i = 1 To (t - 1)If sjs(t) = sjs(i) Thensjs(t) = Int(500 * Rnd) + 1i = 0End IfNext iNext tFor t = 1 To 500ActiveSheet.Range("a" & t).Value = sjs(t)Next tEnd SubRange 属性可用 Range(arg) （其中 arg 为区域名称）返回代表单个单元格或单元格区域的 Range 对象。

下例将单元格“A1”中的值赋给单元格“A5”。

Worksheets("Sheet1").Range("A5").Value = _Worksheets("Sheet1").Range("A1").Value下例设置单元格区域“A1:H8”中每个单元格的公式，用随机数填充该区域。

使用 Range 属性时，如不给出对象识别符（句点左边的对象），将返回活动工作表的某一区域。

如果活动表不是工作表，本方法将失败。

在不明确指定对象识别符而使用 Range 属性之前，可用 Activate 方法激活工作表。

Worksheets("sheet1").ActivateRange("A1:H8").Formula = "=rand()"' Range is on the active sheet下例清除区域“Criteria”中的内容。

Worksheets(1).Range("criteria").ClearContents如果用文本参数指定区域地址，必须以 A1-样式符号指定该地址（不能用R1C1-样式符号）。

Cells 属性可用 Cells(row, column) （其中 row 为行号， column 为列号）返回单个单元格。

下例将单元格“A1”赋值为 24。

Worksheets(1).Cells(1, 1).Value = 24下例设置单元格“A2”的公式。

ActiveSheet.Cells(2, 1).Formula = "=sum(B1:B5)"虽然也可用 Range("A1") 返回单元格“A1”，但有时用 Cells 属性更为方便，因为使用该属性时，可用变量指定行和列。

下例在工作表“Sheet1”上创建行号和列标。

注意，当工作表激活以后，使用 Cells 属性时不必显式指定工作表（它将返回活动工作表上的单元格）。

Sub SetUpTable()Worksheets("sheet1").ActivateFor theYear = 1 To 5Cells(1, theYear + 1).Value = 1990 + theYearNext theYear'For theQuarter = 1 To 4Cells(theQuarter + 1, 1).Value = "Q" & theQuarterNext theQuarterEnd Sub虽然可用 Visual Basic 字符串函数转换 A1-样式引用，但使用 Cells(1, 1) 记号更为简便（而且也是更好的编程习惯）。

可用 expression.Cells(row, column) 返回区域中的一部分，其中 expression 是返回 Range 对象的表达式， row 和 column 为相对于该区域的左上角偏移量。

下例设置单元格“C5”中的公式。

Worksheets(1).Range("c5:c10").Cells(1, 1).Formula = "=rand()"Range 和 Cells可用 Range(cell1, cell2) 返回 Range 对象，其中 cell1 和 cell2 为指定起始和终止位置的 Range 对象。

下例设置单元格区域“A1:J10”的边框线条样式。

With Worksheets(1).Range(.Cells(1, 1), .Cells(10, 10)).Borders.LineStyle = xlThickEnd With注意每个 Cells 属性之前的句点。

如果前导的 With 语句应用于该 Cells属性，那么这些句点就是必需的。

本例中，句点指明单元格处于第一张工作表上。

如果没有句点，Cells 属性将返回活动工作表上的单元格。

Offset 属性可用 Offset(row, column) （其中 row 和 column 为行偏移量和列偏移量）返回相对于另一区域在指定偏移量处的区域。

下例选定位于当前选定区域左上角单元格之下三行，之右一列处的单元格。

由于不能选定不在活动工作表上的单元格，故必须首先激活工作表。

Worksheets("sheet1").Activate '工作表激活后才能进行选定Selection.Offset(3, 1).Range("A1").SelectUnion 方法可用 Union(range1, range2, ...) 返回多块的区域，即该区域由两个或多个连续的单元格块所组成。

下例创建由单元格区域“A1:B2”和“C3:D4”组成的多块区域对象，然后选定该区域。

Dim r1 As Range, r2 As Range, myMultiAreaRange As RangeWorksheets("sheet1").ActivateSet r1 = Range("A1:B2")Set r2 = Range("C3:D4")Set myMultiAreaRange = Union(r1, r2)myMultiAreaRange.Select使用包含若干区域块的选定区域时， Areas 属性格外有用。

该属性将多区域选定区域分解为独立的 Range 对象，然后以集合的形式返回这些对象。

对返回的集合，可用 Count 属性判断该选定区域是否包含多个块，如下例所示。

Sub NoMultiAreaSelection()numberOfSelectedAreas = Selection.Areas.CountIf numberOfSelectedAreas > 1 ThenMsgBox "You cannot carry out this command " & _"on multi-area selections"End IfEnd Sub八、在1-50内随机排列，每四个为一行Sub suijishu()Dim rng As Range, rng1 As RangeSet rng = Range("a1:d12")rng.ClearContentsFor Each rng1 In rngDorng1 = Int(Rnd * 50) + 1Loop Until Application.WorksheetFunction.CountIf(rng, rng1) = 1 NextEnd Sub九、excel从A1到J10做出随机生成的不重复的100个数字不重复随机数，用VBA做按ALT+F11,调出vbe双击左边sheet列表的sheet1在右边代码编辑区贴入以下代码Public Sub sjs()Dim rng As Range, rng1 As RangeSet rng = Range("A1:J10")rng.ClearContentsRandomizeFor Each rng1 In rngDorng1 = Int(Rnd * 100 + 1)Loop Until Application.WorksheetFunction.CountIf(rng, rng1) = 1 NextEnd Subexcel表格菜单栏，工具，宏，选中该宏，点击执行补充我说的随机的意思是，每次进，数字的位置都是变化的。