关于格式刷

收藏

我现在是这样的方法：

Dim myStyleInfo As StyleInfo = spreadArea.ActiveSheet.GetStyleInfo(0, 0)
spreadArea.ActiveSheet.SetStyleInfo(1, 1, myStyleInfo)

复制代码

有更好的方法吗？

ZenosZeng · ZenosZeng

你使用的方法也是Spread推荐的方法之一，此外还可以使用下面的方法：

// 复制格式
fpSpread1.ActiveSheet.ClipboardCopy(ClipboardCopyOptions.Formatting);
// 粘贴格式
fpSpread1.ActiveSheet.ClipboardPaste(ClipboardPasteOptions.Formatting);

复制代码

taxsoft · taxsoft

原帖由 dof 于 2012-4-27 15:17:00 发表
你使用的方法也是Spread推荐的方法之一，此外还可以使用下面的方法：
[code]
// 复制格式
fpSpread1.ActiveSheet.ClipboardCopy(ClipboardCopyOptions.Formatting);

// 粘贴格式
fpSpread1.ActiveS......

这里的粘贴的方法只对activecell起作用，如何多一个选区或者一行起作用？

ZenosZeng · ZenosZeng

使用ClipboardCopy方法时，可以对一个复制一个选区的格式，你可以先通过鼠标选择一个选区、行或者列，点击【复制格式】，然后指定需要粘贴格式的区域，点击【粘贴格式】

此外，你还可以通过代码指定一个选区，然后【复制格式】、【粘贴格式】

taxsoft · taxsoft

原帖由 dof 于 2012-4-28 8:59:00 发表
使用ClipboardCopy方法时，可以对一个复制一个选区的格式，你可以先通过鼠标选择一个选区、行或者列，点击【复制格式】，然后指定需要粘贴格式的区域，点击【粘贴格式】

此外，你还可以通过代码指定一个选区，然后【复制格式】、【粘贴格式】

在粘贴的时候，选择一个单元格，执行“粘贴”，是起作用的，但是我先选择一个区域，然后点按钮执行“粘贴”，不起作用，为什么呢？
用的：fpSpread1.ActiveSheet.ClipboardPaste(ClipboardPasteOptions.Formatting);

ZenosZeng · ZenosZeng

这是利用上面代码做的一个简单Demo
操作步骤：选中第一行->【复制格式】->选择第二行->【粘贴格式】
不知你是如何实现和操作的？

4213_FormatPainter.zip (10.78 KB, 下载次数: 65)

taxsoft · taxsoft

原帖由 dof 于 2012-4-28 9:20:00 发表
这是利用上面代码做的一个简单Demo
操作步骤：选中第一行->【复制格式】->选择第二行->【粘贴格式】
不知你是如何实现和操作的？

用您的例子来说：
选择 B2 执行 “复制格式”，选择C2~D2 ,执行 “粘贴格式”，D2是不变化的

ZenosZeng · ZenosZeng

通过ClipboardPaste方法实际是一个对等区域的复制、粘贴；如果要实现非对等区域的粘贴要在你的方法或者ClipboardPaste的方法基础上进行一个循环设置样式的操作

taxsoft · taxsoft

了解，
清空、锁定、字体样式等，都可以对一个选区直接进行操作，提出这个问题正是基于前面的操作以及Excel的操作习惯，
那我就只能循环了。
谢谢你！

taxsoft · taxsoft

在做格式刷功能的时候，有个问题，需要源单元格显示为流线选区的效果，然后鼠标形状要修改，
流线选区边框效果不知道如何写；
鼠标形状修改如以下示例代码似乎不起作用
spreadArea.Cursor = Cursors.Hand

		自动登录	找回密码
密码			立即注册

关于格式刷

15 个回复

回复 8# dof 的帖子

浏览过的版块

活字格认证

微信认证勋章

元老葡萄

圣诞拼拼乐

讲师达人

悬赏达人