查看: 3530|回复: 6|
在线时间0 小时经验457 威望0 性别男最后登录注册时间阅读权限30UID91530积分507帖子精华0分享0
EH中级, 积分 507, 距离下一级还需 593 积分
积分排行2161帖子精华0微积分0
1至100000怎么样快速设置为带圈字符，以此类推，请教了。
猜你喜欢看
在线时间122 小时经验870 威望0 性别男最后登录注册时间阅读权限30UID48900积分870帖子精华0分享0
EH中级, 积分 870, 距离下一级还需 230 积分
积分排行1227帖子精华0微积分0
给我的感觉，如果1带圈的话，可能只是一只玻璃球，可是如果要是100000就可以是一个地球了。虽然有点夸张，但是我没有搞懂你为什么数字要用10000这多么大？
在线时间901 小时经验15007 威望29 性别男最后登录注册时间阅读权限100UID12381积分21107帖子精华22分享0
积分排行12帖子精华22微积分0
以下是引用我爱婷婷在 11:48:45的发言：
1至100000怎么样快速设置为带圈字符，以此类推，请教了。
最近由于我在写书，一直没有时间考虑。
今天，我抽空考虑了一下，快速设置，大量字符，1~100000，手动设置是没有意义的。
做了一个自动执行的程序，注意：
一，文档中的数字（需带圈的字符）一个文档中，不得超过32000个。
二，目前只能设置1~99999，再大没有意义了，一样做
三，请在低宏下打开文档，如果宏安全性为高或中，请设置为低后重启WORD，再打开。
四，请运行常用工具栏中的第一个命令“带圈字符”，将会新建一个文档，将原文档文本和数据以文本和带圈字符的形式出现。
(16.25 KB, 下载次数: 82)
16:53 上传
下载次数: 82
[求助][讨论]1至100000怎么样快速设置为带圈字符，以此类推，请教了。
以下代码供参考：
'* ＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋＋
'* Created By I Love You_Word!@ExcelHome
'仅测试于System: Windows NT Word: 10.0 Language: 2052
'№ 0006^The Code CopyIn [ThisDocument-ThisDocument]^'
'* －－－－－－－－－－－－－－－－－－－－－－－－－－－－－
Option Explicit
Sub Example()
Dim myRange As Range, myString As String, i As Range, myDoc As Document
Dim myFind() As Variant, oFind As Variant, mySize() As Variant, N As Byte
Dim Temp As String, Pos As Integer
On Error Resume Next
Application.ScreenUpdating = False
'关闭屏幕更新
myString = "○,"
'带圈字符"
Temp = ")"
'定义一个需要查找的数组,各元素分别代表5位数,四位数,三位数,二位数,一位数,一位数,和左括号
myFind = Array("^#^#^#^#^#", "^#^#^#^#", "^#^#^#", "^#^#", "^#", "^#", ")")
'定义一个需要替换的字号数组
mySize = Array(34.5, 29.5, 18.5, 15.5, 14.5, 9.5, 10.5)
'定义一个新文档
Set myDoc = Documents.Add
With myDoc
For Each i In Me.Words
'在本文档的词中循环
If VBA.IsNumeric(i) Then
'如果是数值型文本
If i & 100000 Then
'如果数值&10万
'定义一个Range对象,始终为新文档(活动文档)的最后位置(结束标记前一个字符位置)
Set myRange = .Range(.Content.End - 1, .Content.End - 1)
'此文档最后增加一个EQ域,其域代码为带圈字符的域代码,其中的数字取出I值
.Fields.Add Range:=myRange, Type:=wdFieldEmpty, Text:= _
"EQ \O(" & myString & Trim(i) & ")", PreserveFormatting:=False
.Content.InsertAfter i
'如果不是数值型,直接写入活动文档
.ActiveWindow.View.ShowFieldCodes = True
'活动文档显示域代码,以便查找与替换
For N = 0 To 6
'进行一个循环
Select Case N
'字体降低的磅值
End Select
If N & 4 Then myString = "": Temp = ""
'指定查找与替换
With .Content.Find
.ClearFormatting
.Text = myString & myFind(N) & Temp
.Format = True
.Replacement.Font.Size = mySize(N)
.Replacement.Font.Position = Pos
.Execute Replace:=wdReplaceAll
.ActiveWindow.View.ShowFieldCodes = False
'显示域结果
Application.ScreenUpdating = True
'恢复屏幕更新
'----------------------
在线时间109 小时经验331 威望0 性别男最后登录注册时间阅读权限20UID1765积分331帖子精华0分享0
EH初级, 积分 331, 距离下一级还需 19 积分
积分排行3621帖子精华0微积分0
守柔老大,你真是太强了。小弟对你的敬仰犹如……不过，这个做出来的好象不能作为上标耶。是不是编这种圈的要专门的排版系统呢？
活到老，学到老。
在线时间901 小时经验15007 威望29 性别男最后登录注册时间阅读权限100UID12381积分21107帖子精华22分享0
积分排行12帖子精华22微积分0
以下是引用buswalke在 10:54:13的发言：
守柔老大,你真是太强了。小弟对你的敬仰犹如……
不过，这个做出来的好象不能作为上标耶。是不是编这种圈的要专门的排版系统呢？
在WORD自带的编号系统中，带圈的上标尚不能超过20，为什么？太大了，还是上标吗？太小了，又看不清。
所以，不能千篇一律予以强求。
我的这个程序中，使用的是域，如果有兴趣，可以制成图片，以便调用是可行的，但成上标，肯定行不通了，毕竟数字大了，不行。
[此贴子已经被作者于 11:15:13编辑过]
在线时间0 小时经验264 威望0 性别女最后登录注册时间阅读权限20UID99345积分264帖子精华0分享0
EH初级, 积分 264, 距离下一级还需 86 积分
积分排行4745帖子精华0微积分0
版主你真的是太强了，我也很钦佩。。。。。
在线时间0 小时经验1 威望0 性别保密最后登录注册时间阅读权限10UID883955积分1帖子精华0分享0
EH新人, 积分 1, 距离下一级还需 19 积分
积分排行3000+帖子精华0微积分0
强人撒:call: :call:
积分≥4700即可申请
关注我们，与您相约微信公众平台！
Copyright 1999 - 2017 Excel Home. All Rights Reserved.本论坛言论纯属发表者个人意见，任何违反国家相关法律的言论，本站将协助国家相关部门追究发言者责任！
Powered by
本站特聘法律顾问：徐怀玉律师 李志群律师 &&怎么设置EXCEL表格中A5=A1+A2=A8+A9+A10，B5=B1+B2=B8+B9+B10,C5=C1+C2=C8+C9+C10,以此类推，第五行都满足_百度知道
怎么设置EXCEL表格中A5=A1+A2=A8+A9+A10，B5=B1+B2=B8+B9+B10,C5=C1+C2=C8+C9+C10,以此类推，第五行都满足
我会在一个单元格中输入公式单独满足其中条件，怎么设置第五行每个单元格都满足这样的条件
提问者采纳
&quotA5单元格输入公式=if(A1+A2=A8+A9+A10,A1+A2;)下拉即可;&quot
提问者评价
其他类似问题
按默认排序
其他4条回答
=A1+A2=A8+A9+A10&quot，粘贴即可;TRUE&quot？如果没问题就按如下方式操作：先在A5单元格中输入&，再选择第五行需要公式的单元格，然后复制A5单元格你给出的公式最后的结果只能是&，不知道是不是你的描述有问题;FALSE&和&quot
你直接把鼠标放在了B10那里点击一下，然后右下角会出现个小黑点，用鼠标拖住不放，到C10，D10等，直接加好了，
你这个公式是错的吧？A5既要等于A1+A2 又要等于A8+A9+A10？如果A1+A2 跟A8+A9+A10的不相等可怎么办哦 呵呵 不用excel也可以想出来是不合理的 建议你把问题说明白一些吧 高手会为你解答的呵呵
一个格只能插入一个公式
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁在excel中怎么让10-1=9-1=8-1=7-1=6以此类推_百度知道
在excel中怎么让10-1=9-1=8-1=7-1=6以此类推
是不是我理解的和你要求的不一样啊，别人也容易帮你解答？再说的详细些A1=10 B1=A1-1A2=B1 B2=A2-1下拉第二行即可
单行一列你的是两列我算高程呢
其他类似问题
以此类推的相关知识
等待您来回答
下载知道APP
随时随地咨询
出门在外也不愁你好！请问在excel同一工作簿，sheet2中B列B1=B2=B3=...=B12=sheet1中A1，B13=B14=B15=...=B24=sheet1中A2，以此类推，怎样实现？
你好！请问在excel同一工作簿，sheet2中B列B1=B2=B3=...=B12=sheet1中A1，B13=B14=B15=...=B24=sheet1中A2，以此类推，怎样实现？ 5
如果要让sheet2中的B1~B12都等于sheet1中A1，
sheet2中的B13~B24都等于sheet1中A2，请在sheet2中B1输入公式：=OFFSET(Sheet1!$A$1,INT((ROW()-1)/12),0)然后向下填充。
我尝试了一下，你给的公式只能在sheet2中第一行开始填充。怎样才能在sheet2中任意一行开始填充呢？
呵呵，你是怎样填充的呢？我验证后才发上来的噢。
呵呵，不好意思，又仔细看了遍公式，要想在任意单元格使用，需要把公式中的row()修改为row(A1)。即：=OFFSET(Sheet1!$A$1,INT((ROW(A1)-1)/12),0)
的感言：你就是当代的活雷锋，太感谢了！
相关知识等待您来回答
软件领域专家EXCEL两个表格之间的公式 如图A1=F1，B1=F2，C1=F3，D1=F4 这样，依此类推A2=G1，B2=G2这样无限循环下去的公式 不用一个个自己手动输入的
EXCEL两个表格之间的公式 如图A1=F1，B1=F2，C1=F3，D1=F4 这样，依此类推A2=G1，B2=G2这样无限循环下去的公式 不用一个个自己手动输入的 10
补充：求高手
不区分大小写匿名
复制-选择性粘贴，这里面能看到一个公式一个转置的选项都没有打勾，勾上之后再按确定粘贴可以出来这个效果。
方法有很多1. 选择性粘贴：复制sheet1中 A1：D1 然后 打开另一个工作表sheet2 &然后在sheet2中的A1 单击鼠标右键 选择 &“选择性粘贴”--选择 “转置” 就可以了&2.数组公式 TRANSPOSE & ：先选择sheet2中A1：A4 & &然后在地址栏内输入公式=TRANSPOSE(sheet1！A1:D1) 按ctrl+shift+enter 三个组合键 完成 &（这个公式首先要计算好需要转置的单元格行或列数 ，所以第一步 就是先选中sheet2中A1：A4 也就是为了给sheet1中A1:D1准备转置过来的数值预留位置）3.offset函数：在sheet2中 的A1单元格输入 函数
=OFFSET(Sheet1!$A$1,,ROW()-1) 回车 向下拖动复制公式 就可以批量准换了去试试吧
相关知识等待您来回答
微软专区领域专家