当前位置:主页 > Office办公

最新发布

Excel如何对数据进行排序 Excel对数据进行排序实现动画教程
Excel如何对数据进行排序 Excel对数据进行排序实现动画教程

Excel对数据进行排序选中需要制作下拉菜单的区域,点击数据——排序——升序。具体操作看下图: 

303 次浏览
excel VB 利用GDI+保存图片为JPG、TIFF、PNG、GIF、BMP等格式
excel VB 利用GDI+保存图片为JPG、TIFF、PNG、GIF、BMP等格式

Private Type GUID Data1 As Long Data2 As Integer Data3 As Integer Data4(0 To 7) As Byte End Type Private Type GdiplusStartupInput GdiplusVersion As Long DebugEventCallback As Long SuppressBackgroundThread As Long SuppressExternalCodecs As Long End Type Private Type EncoderParameter GUID As GUID NumberOfValues As Long type As Long Value As Long End Type Private Type EncoderParameters count As Long Parameter As EncoderParameter End Type Private Declare Function GdiplusStartup Lib "GDIPlus" (token As Long, inputbuf As GdiplusStartupInput, Optional ByVal outputbuf As Long = 0) As Long Private Declare Function GdiplusShutdown Lib "GDIPlus" (ByVal token As Long) As Long Private Declare Function GdipCreateBitmapFromHBITMAP Lib "GDIPlus" (ByVal hbm As Long, ByVal hPal As Long, BITMAP As Long) As Long Private Declare Function GdipDisposeImage Lib "GDIPlus" (ByVal Image As Long) As Long Private Declare Function GdipSaveImageToFile Lib "GDIPlus" (ByVal Image As Long, ByVal FileName As Long, clsidEncoder As GUID, encoderParams As Any) As Long Private Declare Function CLSIDFromString Lib "ole32" (ByVal Str As Long, id As GUID) As Long Private Declare Function CopyMemory Lib "kernel32" Alias "RtlMoveMemory" (Dest As Any, Src As Any, ByVal cb As Long) As Long '************************************************************************* '** 作 者 : laviewpbt '** 函 数 名 : SavePic '** 输 入 : pic(StdPicture) - 图 象句柄 '** : FileName(String) - 保 存路径 '** : Quality(Byte) - JPG 图象质量 '** : TIFF_ColorDepth(Long) - TTF 格式的颜色深度 '** : TIFF_Compression(Long) - TTF 格式的压缩比 '** 输 出 : 无 '** 功能描述 : 把图象保存为JPG、 TIFF、PNG、GIF、BMP格式 '************************************************************************* Private Sub SavePic(ByVal pict As StdPicture, _ ByVal FileName As String, _ PicType As String, _ Optional ByVal Quality As Byte = 80, _ Optional ByVal TIFF_ColorDepth As Long = 24, _ Optional ByVal TIFF_Compression As Long = 6) Screen.MousePointer = vbHourglass Dim tSI As GdiplusStartupInput Dim lRes As Long Dim lGDIP As Long Dim lBitmap As Long Dim aEncParams() As Byte On Error GoTo ErrHandle: tSI.GdiplusVersion = 1 ' 初始化 GDI+ lRes = GdiplusStartup(lGDIP, tSI) If lRes = 0 Then ' 从句柄创建 GDI+ 图像 lRes = GdipCreateBitmapFromHBITMAP(pict.Handle, 0, lBitmap) If lRes = 0 Then Dim tJpgEncoder As GUID Dim tParams As EncoderParameters '初始化解码器的GUID标识 Select Case PicType Case ".jpg" CLSIDFromString StrPtr("{557CF401-1A04-11D3-9A73-0000F81EF32E}"), tJpgEncoder tParams.count = 1 ' 设置解码器参数 With tParams.Parameter ' Quality CLSIDFromString StrPtr("{1D5BE4B5-FA4A-452D-9CDD-5DB35105E7EB}"), .GUID ' 得到Quality参数的GUID标识 .NumberOfValues = 1 .type = 4 .Value = VarPtr(Quality) End With ReDim aEncParams(1 To Len(tParams)) Call CopyMemory(aEncParams(1), tParams, Len(tParams)) Case ".png" CLSIDFromString StrPtr("{557CF406-1A04-11D3-9A73-0000F81EF32E}"), tJpgEncoder ReDim aEncParams(1 To Len(tParams)) Case ".gif" CLSIDFromString StrPtr("{557CF402-1A04-11D3-9A73-0000F81EF32E}"), tJpgEncoder ReDim aEncParams(1 To Len(tParams)) Case ".tiff" CLSIDFromString StrPtr("{557CF405-1A04-11D3-9A73-0000F81EF32E}"), tJpgEncoder tParams.count = 2 ReDim aEncParams(1 To Len(tParams) + Len(tParams.Parameter)) With tParams.Parameter .NumberOfValues = 1 .type = 4 CLSIDFromString StrPtr("{E09D739D-CCD4-44EE-8EBA-3FBF8BE4FC58}"), .GUID ' 得到ColorDepth参数的GUID标识 .Value = VarPtr(TIFF_Compression) End With Call CopyMemory(aEncParams(1), tParams, Len(tParams)) With tParams.Parameter .NumberOfValues = 1 .type = 4 CLSIDFromString StrPtr("{66087055-AD66-4C7C-9A18-38A2310B8337}"), .GUID ' 得到Compression参数的GUID标识 .Value = VarPtr(TIFF_ColorDepth) End With Call CopyMemory(aEncParams(Len(tParams) + 1), tParams.Parameter, Len(tParams.Parameter)) Case ".bmp" '可以提前写保存为BMP的代码,因为并没有用GDI+ SavePicture pict, FileName Screen.MousePointer = vbDefault Exit Sub End Select lRes = GdipSaveImageToFile(lBitmap, StrPtr(FileName), tJpgEncoder, aEncParams(1)) '保存图像 GdipDisposeImage lBitmap ' 销毁GDI+图像 End If GdiplusShutdown lGDIP '销毁 GDI+ End If Screen.MousePointer = vbDefault Erase aEncParams Exit Sub ErrHandle: Screen.MousePointer = vbDefault MsgBox "在保存图片的过程中发生错误:" & vbCrLf & vbCrLf & "错误号: " & Err.Number & vbCrLf & "错误描述: " & Err.Description, vbInformation Or vbOKOnly, "错误" End Sub

512 次浏览
excel 中hyperlink函数使用实例教程
excel 中hyperlink函数使用实例教程

excel中hyperlink函数是一个大家熟悉的超链接函数,它让excel和你想要的目标关联在一起,你想去哪里就可以创建去往哪里的快捷方式。当单击hyperlink函数所在的单元格时,将打开链接的文件或跳转到指定工作表的单元格区域,或者指定的网页。  比如,我们在A1单元格输入公式:=HYPERLINK("https://www.office26.com","office教程网"),按下回车键确定之后,我们再单击A1单元格,会跳转到https://www.office26.com这个网站。这就是EXCEL中hyperlink函数的最简单用法。

539 次浏览
Excel PDURATION 函数 使用教程
Excel PDURATION 函数 使用教程

PDURATION 函数返回投资到达指定值所需的期数。Excel 2013+PDURATION 函数为财务函数中计算持续期的函数,返回投资到达指定值所需的期数。函数名由Period(时期)+Duration(期间)两个单词组成。期数。=PDURATION(rate, pv, fv) =PDURATION(每期利率, 现值, 未来值) 参数 Rate 必需。 Rate 为每期利率。 Pv 必需。 Pv 为投资的现值。 Fv 必需。 Fv 为所需的投资未来值。 要点 PDURATION 要求所有参数为正值。 实例

328 次浏览
如何用excel求乘积呢,本文通过两个案例来介绍excel求乘积的函数以及相关方法
如何用excel求乘积呢,本文通过两个案例来介绍excel求乘积的函数以及相关方法

Q:如何用excel求乘积?  A:excel求乘积函数是PRODUCT函数。根据具体情况,有时候也可以直接使用四则运算来求乘积。  下面以两个小例子来介绍如何用excel求乘积。如何用excel求乘积案例一:  如下图所示的excel工作表,A列是单价,B列是数量,在C列求乘积。提供两种解法:  方法一:选定C列需要求乘积的所有单元格,比如C2:C4,输入公式=A2*B2,按CTRL+回车批量完成。  方法二:在C2输入公式=A2*B2,将它拖拽复制下去,这样求乘积也是可以的。如何用excel求乘积案例二:  如下图所示,如果需要求乘积的单元格过多,使用=A2*B2*C2*D2这样的逐一单元格相乘,效率就比较低下了。

320 次浏览
Excel VBA 窗体之添加最大最小化按钮 实现代码
Excel VBA 窗体之添加最大最小化按钮 实现代码

VBA的窗体和一般的程序窗体不太一样,一般的窗体都会有一个最大化和一个最小化按钮,而VBA窗体却只有一个关闭按钮。这样就使VBA的窗体在使用的时候会有一些不太方便,下面我们就来为它添加最大和最小化按钮。附件下载:点击链接从百度网盘下载操作如下:◾在Excel的VBE窗口中插入一个用户窗体,将其命名为frmMaxMin。然后再添加一个模块。在窗体和模块中添加后面所列代码。◾在工作薄中的任意工作表中添加一窗体按钮控件,将指定其设置宏为btnShowfrmMaxMin_Click。其供示范之用。具体代码:"ModToolsForm"模块代码Sub btnShowfrmMaxMin_Click() frmMaxMin.Show End Sub"frmTools" 窗体代码

864 次浏览
Excel数组公式如何执行多次计算
Excel数组公式如何执行多次计算

一个Excel 排列 式 是一个公式,它对一个或多个数组中的值进行计算,而不是单个数据值。在电子表格程序中,数组是一系列相关数据值,通常存储在工作表的相邻单元格中。本指南介绍如何在所有现代版本的Excel中使用数组公式。什么是数组公式?数组公式类似于常规公式: •他们以等号开头( = ) •使用与常规公式相同的语法 •使用相同的数学运算符 •遵循相同的操作顺序在Excel中,数组公式由大括号括起来 { } - 这些括号不能只输入;必须通过按下它们将它们添加到公式中 按Ctrl , 转移 , 和 输入 将公式键入一个或多个单元格后的键。因此,数组公式有时被称为a CSE 式 在Excel中。此规则的一个例外是当花括号用于输入数组作为通常仅包含单个值或单元格引用的函数的参数时。例如,在下面的教程中使用 VLOOKUP 和 选择 函数创建左查找公式,为其创建一个数组 选择 功能 Index_num 通过在输入的数组周围键入大括号来进行参数。创建数组公式的步骤如果正确完成,公式将被大括号括起来,并且持有公式的每个单元格将包含不同的结果。无论何时编辑数组公式,花括号都会从数组公式周围消失。要取回它们,必须按下输入数组公式 按Ctrl, 转移,和 输入 再次键,就像第一次创建数组公式时一样。有两种主要类型的数组公式:

675 次浏览
Excel 在工作中最常用的函数汇总大全
Excel 在工作中最常用的函数汇总大全

下面直接进入正题,先看我今天要分享的函数,如下图:接下来按照顺序一个一个分享:1、平均值系列案例图:AVERAGE()说明:无条件求平均值需求:求MATH课程的平均分公式:AVERAGE(C2:C9)

396 次浏览
Excel BIN2HEX 函数 使用实例教程
Excel BIN2HEX 函数 使用实例教程

BIN2DHEX 函数将二进制数字转换为十六进制数字。十六进制数字。=BIN2HEX(number, [places]) 参数 Number 必需。 要转换的二进制数。 Number 包含的字符不能超过 10 个(10 位)。 Number 的最高位为符号位, 其余 9 位是数量位。 负数用二进制补码记数法表示。 Places 可选。 指定要使用的字符数。 如果其值大于最小字符数,十六进制数字用 0 补齐。 如果省略,将使用必需的最小字符数。 实例

332 次浏览
Excel VBA 窗体之添加窗体图标 实现代码
Excel VBA 窗体之添加窗体图标 实现代码

VBA的窗体其实就是一个Dialog(对话框窗体),缺少完整窗体的许多元素,窗体标题栏上的图标就是其中之一,有时我们自己需要美化一下它,使用代码来为它添加窗体图标(如图)。附件下载:点击链接从百度网盘下载操作如下:◾在Excel的VBE窗口中插入一个用户窗体,将其命名为frmIcon。然后再添加一个模块。在窗体和模块中添加后面所列代码。◾在工作薄中的任意工作表中添加一窗体按钮控件,将指定其设置宏为btnShowfrmIcon_Click。其供示范之用。具体代码:"mdIcon"模块代码 Sub btnShowfrmIcon_Click() frmIcon.Show End Sub

972 次浏览
共计75934条记录 上一页 1.. 5421 5422 5423 5424 5425 5426 5427 ..7594 下一页