ExcelVBA常用代码50例

Excel VBA 常 用 代 码 50 例 001。 用 命 令 按 扭 打 印 一 个sheet1 中B2:M30 区 域 中 的 内容 ? 我 想 在Sheet2 中 制 件 一 个 命 令 按 扭 , 打 印 表Sheet1 中 的[B2:M30] 区 域 中 的 内 容 ? 解 答 ： 可 以 将 打 印 区 域 设 为 b2： m30， 然 后 打 印 ， 如 ： sheets("sheet1").printarea="b2:m30" sheets("sheet1").printout 随 手 写 的 ， 你 可 以 试 试 看 。 最 简 单 的 方 法 是 ： 你 先 录 制 宏 ，在 录 制 宏 过 程 中 ， 跑 到 页 面 设 置 里 面 ， 把 打 印 范 围 设 置 到你 想 要 的 范 围 。 然 后 退 出 ， 停 止 录 制 宏 ， 你 就 可 以 得 到 一 些 代 码 ！ 002。 能 否 对 一 列 中 的 文 字 统 一 去 掉 最 后 一 个 字 ?这 些 文 字 不统 一 ,有 些 字 数 多 ,有 些 字 数 少 。 如 何 处 理 ?我 用 {"&-}不 行 解 答 ： =REPLACE(A1,LEN(A1),1," ")(在 过 渡 列 进 行 ) 003.能 否 根 据 单 元 格 数 值 自 动 标 记 序 号 ？ 各 位 大 佬 ， 一 工 作 表 有 两 列 ，“序 号 ”及“金额”， 能 否 将 金额不 等于 0 的 行 自 动 标 上序 号 呢？ 如 无现成的 函数 ， 应怎样设 置 ？ 解 答 ： Dim xuhao As Integer xuhao = 1 Range("b2").Select Do While Selection <> "" If Selection <> 0 Then ActiveCell.Previous.Value = xuhao xuhao = xuhao + 1 End If ActiveCell.Offset(1, 0).Range("a1").Select Loop 004.求 教 自 定 义 函 数 查 询 了 一 些 自 定 义 函 数 的 例 子 都 是 单 变 量 的 。自 定 义 函 数 能否 建 立 “(As Range) As Interger”的 函 数 ， 应 该 可 以 的 ，请 各 位 大 师 赐 教 ！ 请 以 “∑x2”为 例 ， 万 分 感 谢 ！ (该 用 "For Each ...Next"， 就 是 还 不 知 道 如 何 引 用 Range 中 的 每 个 值 ，请 高 手 指 点 。) 解 答 ： 参 数 使 用 Range 而 函 数 值 为 Integer 是 可 以 的 用 for each next 循 环 思 路...