Msgbox中两行文字怎么右对齐？

wsheep 2004-10-09 10:33:41
MsgBox " 0" & vbCrLf & "133"
这样对不齐啊，有什么办法吗？
...全文
417 22 打赏 收藏 转发到动态 举报
写回复
用AI写文章
22 条回复
切换为时间正序
请发表友善的回复…
发表回复
riverlee 2004-10-09
  • 打赏
  • 举报
 回复
MsgBox "已完成" & vbTab & Space(4) & "1" & vbLf & "未完成" & vbTab & "123"
bladeinside 2004-10-09
  • 打赏
  • 举报
 回复
a=0
b=133
msgbox "已完成" & a & vbcrlf & "未完成" & b ,vbmsgboxright
bladeinside 2004-10-09
  • 打赏
  • 举报
 回复
vbMsgBoxRight
肯定可以的
a=0
b=133
msgbox “已完成” & a & vbcrlf & "未完成" & b ,vbmsgboxright


wsheep 2004-10-09
  • 打赏
  • 举报
 回复
想达到的效果是
已完成 0
未完成 133

那位能帮下忙，谢谢了。
wsheep 2004-10-09
  • 打赏
  • 举报
 回复
谢谢阿甘，看来我问的不够准确。
我现在两个数是取自变量的。如：
a=0
b=133
msgbox “已完成” & a & vbcrlf & "未完成" & b ，vbmsgboxright

这样的话，好像还是不行。
riverlee 2004-10-09
  • 打赏
  • 举报
 回复
MsgBox " a" & Chr(13) & Chr(10) & "ab", vbMsgBoxRight
jonahclinton 2004-10-09
  • 打赏
  • 举报
 回复
关注
wsheep 2004-10-09
  • 打赏
  • 举报
 回复
晕啊，楼上几位大哥，没一个右对齐的。
hhjjhjhj 2004-10-09
  • 打赏
  • 举报
 回复
MsgBox " 0" & vbCrLf & " 133"
AKillGodKillBuddha 2004-10-09
  • 打赏
  • 举报
 回复
晕倒
AKillGodKillBuddha 2004-10-09
  • 打赏
  • 举报
 回复
MsgBox "阿" & vbCrLf & "1aa"
tztz520 2004-10-09
  • 打赏
  • 举报
 回复
MsgBox "0" & vbCrLf & "133"
FootballNight 2004-10-09
  • 打赏
  • 举报
 回复
支持Maconel(Maconel)
starsoulxp 2004-10-09
  • 打赏
  • 举报
 回复
msgbox “已完成” & a & vbcrlf & "未完成" & b ,vbmsgboxright
Maconel 2004-10-09
  • 打赏
  • 举报
 回复
用format函数
比如：
Dim s As String
Dim n1, n2 As Integer

n1 = 1
n2 = 224
s = "已完成" + Format(n1, "@@@@@@@@") + vbNewLine + "已完成" + Format(n2, "@@@@@@@@")
MsgBox s
thor 2004-10-09
  • 打赏
  • 举报
 回复
先指定每一行的长度嘛，比如10，然后……
第一行：已完成：＋（7-len(s)）个空格+字符串＋vbcrlf
第二行一样。^_^
dongge2000 2004-10-09
  • 打赏
  • 举报
 回复
dim s as string
dim A as string
a="12"
s=string(6-len(a)," ")& a
msgbox "已完成" & s
dongge2000 2004-10-09
  • 打赏
  • 举报
 回复
dim s as string
dim A as string
a="12"
s=string(6-len(a)," ")
msgbox "已完成" & s
riverlee 2004-10-09
  • 打赏
  • 举报
 回复
MsgBox "已完成" & vbTab & Space((Len(b) - Len(a)) * 2) & a & vbLf & "未完成" & vbTab & b
行云边 2004-10-09
  • 打赏
  • 举报
 回复
帮顶
加载更多回复（2）
SuperNotepad
【超级记事本(SuperNotePad) V6.40.959使用说明】 【制　　作】︰Ｓavage 【适用平台】︰Windows XP/Windows 2003/Windows Vista 【联　　系】︰log2.0@163.com 【校　　验】︰MD5: 68F54DC19E37B17417F47A7DA6707820 　　　　　　　SHA1: 01709CB64B0BA21EDD4C0B808384A8590480167F 【SuperNotePad.exe 说明】︰ ---------------------- 1.主程序大小132 KB (135,680 字节); 2.代码高效,程序已经经过近四百多次的调试; 3.信息加密算法安全高效,可任意深度加密; 4.右键集合了大多数常用功能,不常用的在"工具"中; 5.主要的特色功能︰ ００） 语音朗读文本 (注:[自定义欢迎词]中可更改欢迎语音; 　　　　　　　　　　　　　　　　　XP下初始只有一个缺省语音引擎,为英文MSSam; 　　　　　　　　　　　　　　　　　朗读中文需要TTS简体中文语音库,没有的请下载, 　　　　　　　　　　　　　　　　　否则将无法阅读中文.) ０１） 文本转为语音文件 ０２） 信息密钥对称加密 (注:可任意深度加密; 　　　　　　　　　　　　　　　　　密钥支持任意长度中文/英文/特殊字符,有效抵抗 　　　　　　　　　　　　　　　　　穷举密钥攻击; 　　　　　　　　　　　　　　　　　若进行多重加密可使得穷举密钥解密变成不可能 　　　　　　　　　　　　　　　　　完成的任务.) ０３） 计算表达式　　　　例︰2*sin(30*3.1415926/180) 支持批量表达式 　　　　　　　　　　　　　　　　　计算,每个表达式请放在独立的行中 ０４） 执行DOS命令　　　　 例︰@echo off&setlocal; EnableDelayedExpansion&color; 0f&set; all=1&set; /A a=0&set; /A b=1&set; /A c=0&for; /L %%i in (0,1,44) do (set /A c=!a!+!b!&set; /A a=!b!&set; /A b=!c!&set; all=!all! !c!)&if; %%i equ 44 (echo 斐波纳齐:!all!)&pause;>nul&exit; ０５） 执行应用程序　　　　例︰"control.exe appwiz.cpl" ０６） 执行VBS脚本　　　　 例︰a=3:b=4:c=5:p=(a+b+c)/2:msgbox "Area=" & sqr(p*(p-a)*(p-b)*(p-c)),64,"海伦公式" ０７） 数值进制间转换　　(注:支持批量,支持十进制范围:1E+308~9E-324; 　　　　　　　　　　　　　　　　　二进制正/负数均采用补码表示.如十进制负数-8的 　　　　　　　　　　　　　　　　　二进制1000应为11000(也可表示为1000,在本软件 　　　　　　　　　　　　　　　　　中当二进制第一位为1时可省略符号位);十进制正 　　　　　　　　　　　　　　　　　数8的二进制1000应为01000(符号位不能省)) ０８） 多种替换|转换功能 　　(注:支持批量\par\tab\asc\nul) ０９） 状态栏便捷查看文本编码方式、文件路径、字符的各种信息　例︰字体|大小|颜色|...|编码 １０） 浏览当前编辑文档所在的文件夹(注:F6) １１） 排序 １２） 填充序列数　　　　　　(注:支持批量\par\tab\asc\nul) １３） 字符/串拆分、合并、翻转 １４） 定位匹配括号 １５） 多种右键菜单　　　　　(注:鼠标中键或Shift/Alt/Ctrl+鼠标右键) １６） 便捷时间显示 １７） 关联到右键打开方式 １８） 便捷的几种显示模式 １９） 汉字转拼音/缩写 ２０） 两种方式打开拖入文档 (注:请拖到[标题栏]或[状态栏],否则识别为链接; 　　　　　　　　　　　　　　　　　在[设置]中可配置拖入文档打开方式[插入/新建]) ２１） 支持多种格式UTF-8, BIG5, GB2321, Unicode,Unicode big edian, Rich Text, USC-2 ２２） 查看密码　　　　　　 (扩展对所有已打开的窗口密码均有效Ctrl+D) ２３） 正则表达式处理字符　　例︰"\b([a-z]+) \1\b"合并多次重复单词
VBA实现根据表格中文字的行数设置不同的对齐方式
偶然翻看博客《使用VBA操作word表格》，climb_hero在下面提了个问题：表格单元格只有1行就居中，多行就左对齐的VBA语句如何写？问题一过去一年，居然没有人做回复。本想直接在下面用代码回复，奈何字符数量过多，只好单独写成一篇博客。 要解决climb_hero的问题，其实关键在于判断单元格中文字的行数。如果单元格中段落数大于1，自然是多行。问题是单元格中只有一个段落，怎么确定这个段落是不是分成了多行？如果是普通段落，要计算段落的行数是一件简单的事，只需调用range对象的ComputeStatis
Excel VBA 讲座05 - InputBox和MsgBox使用
2，第一个参数prompt是必需项，是字符串表达式。3，第二个参数buttons是可选的，数值表达式，用于指定要显示按钮的数量和类型、要使用的图标样式、默认按钮的标识和消息框的形式的值的组合。6，第五个参数ypos是可选的，指定对话框的上边缘与屏幕的顶部的垂直距离（以缇为单位）的数值表达式。6，第七个参数context是可选的，帮助上下文数值的数值表达式，该数值由帮助作者为相应的帮助主题分配。5，第四个参数xpos是可选的，指定对话框的左边缘与屏幕的左边缘的水平距离（以缇为单位）的数值表达式。
CSS
CSS1.内联式css样式

这里文字是红色。

2.嵌入式css样式，写在当前的文件中3.外部式css样式4.三种方法的优先级 内联式
vb字符串选定复制代码
登录网页微信知乎图片视频医疗汉语问问更多»搜索答案我要提问首页问题分类特色问豆商城个人中心问题已被解决QQ一键登录IT技术vb 获取选中文字字数问题一，如题，选中文本框中一段文字，显示共有多少字符；问题二，设一个标签，计算文本框中光标所在位置之前的字符数匿名用户19 次浏览2009.11.10 提问我来回答最佳答案本回答由达人推荐幼稚丶诠释了涐扪旳青春〃2018.06.08 回答。
VB基础类

7,763

社区成员

197,605

社区内容

发帖
与我相关
我的任务
社区描述
VB 基础类
社区管理员
  • VB基础类社区
加入社区
  • 近7日
  • 近30日
  • 至今

加载中

查看更多榜单
社区公告
暂无公告

试试用AI创作助手写篇文章吧

+ 用AI写文章