horizontalalignment,excel 单元格合并 循环执行命令
horizontalalignment,excel 单元格合并 循环执行命令详细介绍
本文目录一览： VBA .HorizontalAlignment = xlCenter 什么意思
HorizontalAlignment 属性
返回或设置指定对象的水平对齐方式。XlHAlign 类型，可读写。
XlHAlign 可为以下 XlHAlign 常量之一。
xlHAlignCenter
xlHAlignCenterAcrossSelection
xlHAlignDistributed
xlHAlignFill
xlHAlignGeneral
xlHAlignJustify
xlHAlignLeft
xlHAlignRight
expression.HorizontalAlignment
expression 必需。该表达式返回“应用于”列表中的一个对象。
说明
某些常量可能不可用，这取决于所选择或安装的语言支持（例如，美国英语）。
示例
以下示例使图表标题居中。
myChart.ChartTitle.HorizontalAlignment = xlCenter
Sub at()
Range("d2:f13").Select '选择D2：F13区域
Selection.FormulaR1C1 = "=IF(RC=0,INT(RAND()*90+10),RC)" '为选择区域赋函数
Range("A1:h25").Select '选择A1:H25区域
With Selection '设置选择区域格式
.HorizontalAlignment = xlCenter '水平居中对齐
.VerticalAlignment = xlCenter '垂直居中对齐
.WrapText = False '自动换行为FALSE，即不能自动换行
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
End Sub
不想再解释了，就是人家录制的一段宏，也不修改一下就在用，把没用的东西也一起贴在一起了
反正就是设置选择区域的格式啦。。。
不明白的话，可以粘贴到代码窗口，然后按F1查看帮助文件
设置某对象对齐格式为水平居中。
Horizontal水平，Alignment对齐，XlCenter居中，整体就是水平居中对齐的意思
VBA中HorizontalAlignment 属性：返回或设置指定对象的水平对齐方式。
水平对齐方式的值(默认值=xlGeneral)，当然，还有其它的对齐方式如下：
常量 水平位置
xlGeneral 标准
xlLeft 靠左
xlCenter 中央
xlRight 靠右
xlFill 填充
xlJustify 调节对齐
xlCenterAcrossSelection 选择范围内中央对齐
xlDistributed 平均对齐
setHorizontalAlignment用法
分类: 电脑/网络 >> 程序设计 >> 其他编程语言
问题描述:
谢谢
解析:
setHorizontalAlignment方法的作用是让标签中的文字内容在标签内按照指定的方式对齐。
顺带给你推荐一个java视频教程。
《JAVA视频教程---张孝祥和翁恺》
4.5GB
v768/Sofare/Catalog190/452
Excel vba里怎么设置单元格的内容对齐方式
1、首先打开需要设置对齐方式的Excel vba界面。
2、选择区域或单元格右对齐：Selection.HorizontalAlignment = Excel.xlRight。
3、选择区域或单元格左对齐：Selection.HorizontalAlignment = Excel.xlLeft。
4、选择区域或单元格居中对齐：Selection.HorizontalAlignment = Excel.xlCenter。
5、固定区域的对齐方式的代码：Range("A1:A9").HorizontalAlignment = Excel.xlLeft。
具体步骤如下：
1、首先打开需要编辑的Excel表格，进入到编辑页面中。
2、然后点击打开开发者工具中的“Visual Basic”。
3、然后在弹出来的窗口中点击打开插入中的“模块”选项。
4、然后在弹出来的窗口中点击输入下面的代码：
Sub cell()
Dim icell As Integer, hcell As Integer
For icell = 4 To 35
If UCase(Cells(icell, 1).Value) = "SAT" Or UCase(Cells(icell, 1).Value) = "SUN" Then
Cells(icell, 1).Value = UCase(Cells(icell, 1).Value)
For hcell = 1 To 21
Cells(icell, hcell).Interior.Color = RGB(200, 200, 200)
Cells(icell, 1).HorizontalAlignment = xlCenter
Cells(icell, 1).VerticalAlignment = xlCenter
Cells(icell, 1).Font.Bold = True
Next
End If
Next
End Sub就可以了。
使用HorizontalAlignment属性控制水平对齐，此属性的值可设为以下常量之一：
xlCenter
xlDistributed
xlJustify
xlLeft
xlRight
使用VerticalAlignment属性控制垂直对齐，此属性的值可设为以下常量之一：
xlBottom
xlCenter
xlDistributed
xlJustify
xlTop
例如下面的代码使选中部分水平居中、垂直居中：
Sub 宏1() With Selection .HorizontalAlignment = xlCenter .VerticalAlignment = xlCenter End WithEnd Sub
你录制一段宏就可以从代码中看到了.以下以H1到H7的为例: Range("H1:H7").VerticalAlignment = xlCenter '竖向居中 Range("H1:H7").VerticalAlignment = xlTop '靠上对齐 Range("H1:H7").HorizontalAlignment = xlCenter '横向居中 Range("H1:H7").HorizontalAlignment = xlLeft '左对齐 Range("H1:H7").HorizontalAlignment = xlRight '靠右对齐
材料/工具:Office2013
1、Excel中有数据如下图所示，将其中的文字设置为水平居中对齐：
2、按下Alt+F11，打开VBA编辑界面，双击源数据所在的工作表：
3、输入代码
Sub 鱼木混猪()
Range("A1:A4").HorizontalAlignment = xlCenter
End Sub
4、然后点击“运行子程序”按钮：
5、关闭VBA编辑界面，返回Excel中就可以看到文字水平对齐方式变成了居中对齐
java中jlabel什么意思
1、LEFT、RIGHT、CENTER、LEADING 、TRAILING等参数表示label中内容对齐方式：左对齐、右对齐、居中、靠顶对齐、靠下对齐
2、可以。 有构造函数
JLabel（Icon image)
JLabel(Icon image,int horizontalAlignment)
JLabel(String text,Icon image,int horizontalAlignment)
参数说明:
String text:标签中显示文字
Icon image: 图片对象，需要使用ImageIcon子对象创建， Icon image=new ImageIcon(String filename); filename:图片本地路径
horizontalAlignment：对齐方式，就是1中的那些常量
对JLabel加一个鼠标监听器就行了方法：addMouseListener(MouseListener l)。传递的参数是实现了MouseListener接口的类（也就是说你需要自定义一个类，用implements关键字实现MouseListener接口，JDK中自带了一个MouseAdapter类可以使用）。然后重写该类的mouseClicked(MouseEvent e)方法就行了。参数MouseEvent e可以在方法中来判断事件源。e.getSource()返回事件源的对象，比如是JLabel或者JButton之类的对象。比如你在你的程序中实例化了一个名为jl的JLabel对象(JLabel jl = new JLabel)，那么用e.getSource.equals(jl)就可以判断了。
望采纳 谢谢
1、LEFT、RIGHT、CENTER、LEADING 、TRAILING等参数表示label中内容对齐方式：左对齐、右对齐、居中、靠顶对齐、靠下对齐\x0d\x0a2、可以。 有构造函数 \x0d\x0aJLabel（Icon image) \x0d\x0aJLabel(Icon image,int horizontalAlignment)\x0d\x0aJLabel(String text,Icon image,int horizontalAlignment) \x0d\x0a参数说明:\x0d\x0aString text:标签中显示文字\x0d\x0a \x0d\x0aIcon image: 图片对象，需要使用ImageIcon子对象创建， Icon image=new ImageIcon(String filename); filename:图片本地路径\x0d\x0a \x0d\x0ahorizontalAlignment：对齐方式，就是1中的那些常量
Excel vba里怎么设置单元格的内容对齐方式
Public Sub 技巧4_151() Dim myRange As Range Set myRange = Range("A1") '指定任意单元格 With myRange .Value = "ExcelVBA实用技巧大全" .HorizontalAlignment = xlRight MsgBox "水平右对齐。" .HorizontalAlignment = xlLeft MsgBox "水平左对齐。" .HorizontalAlignment = xlCenter MsgBox "水平居中。" .HorizontalAlignment = xlDistributed MsgBox "水平分散对齐。" .VerticalAlignment = xlTop MsgBox "垂直靠上。" .VerticalAlignment = xlBottom MsgBox "垂直靠下。" .VerticalAlignment = xlCenter MsgBox "垂直居中。" .HorizontalAlignment = xlGeneral .VerticalAlignment = xlGeneral MsgBox "恢复默认。" End With Set myRange = Nothing End Sub
举例说明。编写代码选择右对齐。代码如下：
Sub 右对齐()
With Selection
.HorizontalAlignment = xlRight
End With
End Sub
选择区域A1：A10，运行宏。如图：
运行后结果如图：
VBA中 不能设置类 Range 的 HorizontalAlignment 属性
首先中间的冒号应该是英文的，你用了中文的
xlApp.ActiveSheet.range("A1：H1").HorizontalAlignment = xlCenter
不要使用activesheet。
试试改成：
xlApp.Sheets("sheet1").range("A1：H1").HorizontalAlignment = xlCenter
我怀疑你的xlapp根本就没有激活。
怎么会有activesheet，导致range为空，当然就设置不了。。
你改成这个，同样是因为前面没有工作表
Range("A1:H1").Select
With Selection
.HorizontalAlignment = xlCenter
End With
它不知道去哪里选择
编译报错，Exception in thread main java.lang.IllegalArgumentException： horizontalAlignment
Label.CENTER = SwingConstants.TOP
注意，只可以取这几个：LEFT, CENTER, RIGHT, LEADING , TRAILING
的确是有问题。
换成SwingConstants.CENTER就没问题了 。
jl2=new JLabel("QQ号码",Label.CENTER); 这个实例化方法的时候 不能用对象Label的属性,要用它实例的属性 改成jl2=new JLabel("QQ号码",jl2.CENTER);就可以了,其余地方也是一样即可^
nn
vb如何设置excel某一个单元格内容居中显示？
很多东西不会可以先操作录制一个宏，打开看看代码你就会了
Range("F36").Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
End With
dim
ex
as
object
dim
exwbook
as
object
dim
exsheet
as
object
set
ex
=
createobject("excel.application")
set
exwbook
=
ex.workbooks().add
set
exsheet
=
exwbook.worksheets("sheet1")
exsheet.cells.horizontalalignment
=
xlcenter
//居中问题
exsheet.cells.verticalalignment
=
xlcenter
这个问题我也遇到过
我从excel的宏中得到了启发
最后搞定了
java的swing组件的使用
这些直接看对应JDK版本的java doc里面关于swing的部分，有很详细的索引页和每种控件的使用方法，还有jdk自己的一些sample。
这个oracle网站有教程
Swing是用于图形用户界面开发的一个全面解决方案，包括250多个类，在这里不能一一列出。本书仅使用Swing用户界面。
1.标 签 2.按 钮 3.文本域 4.文本区 5.列表框 6.组合框
7.复选框 8.单选按钮 9.滚动条 10.选项卡 11.对话框 12.菜 单
1.标 签
标签类JLabel是用于显示文字或图标的简单组件。JLabel的构造方法包括：
public JLabel()
public JLabel(Icon icon)
public JLabel(Icon icon, int horizontalAlignment)
public JLabel(String text)
public JLabel(String text, Icon icon, int horizontalAlignment)
public JLabel(String text, int horizontalAlignment)
在构造方法中，text指定标签的文字，icon指定标签的图标，horizontalAlignment指定文本或图标的水平对齐方式。
JLabel实例维护的属性包括：
表8.3 JLabel的属性 属性名
数据类型
访问
缺省值
disabledIcon
Icon
SG
灰色过滤图标
displayedMnemonic
Int
SG
——
horizontalAlignment
Int
CSG
LEFT
horizontalTextPosition
Int
SG
RIGHT
Icon
Icon
CSG
null
iconTextGap
Int
SG
4个像素
labelFor
Component
SG
null
Text
String
CSG
“”
verticalAlignment
Int
SG
CENTER
verticalTextPosition
int
SG
CENTER
注：在访问中，C=可在构造时设置/G=获取方法/S=设置方法
disabledIcon：标签被禁用时显示的图标。
displayedMnemonic：设置LabelFor属性后显示的助记符。
horizontalAlignment：标签内容的水平对齐方式。取值包括：SwingConstants.LEFT、SwingConstants.RIGHT和SwingConstants.CENTER。
horizontalTextPosition：文本相对于图标的水平位置；与水平对齐方式的有效值相同。
icon：标签在启用时显示的图标。
iconTextGap：标签的文本与图标之间的间隙，以像素点为单位。
labelFor：一个组件，它在标签的助记符被键入时获得焦点。
Text：标签显示的文本。
verticalAlignment：标签内容的垂直对齐方式。取值包括：SwingConstants.TOP、SwingConstants.BOTTOM和SwingConstants.CENTER。
excel 单元格合并 循环执行命令
请参照如下，以理解代码为上，录制的太罗嗦了。那么长的一段无用的代码。
Sub aa()
For i = 1 To 110
Range(Cells(i, 1), Cells(i, 3)).Merge
Next i
End Sub
你录制的宏跟你上面说的要求不一致。我按你上面说的，
A1:C1, A2:C2...A110:C110，每行的前三个单元格，都分别合并为一个单元格。
Dim i As Integer
For i = 1 To 110
Range("A" & i & ":C" & i).Select
With Selection
.HorizontalAlignment = xlCenter
.VerticalAlignment = xlCenter
.WrapText = False
.Orientation = 0
.AddIndent = False
.IndentLevel = 0
.ShrinkToFit = False
.ReadingOrder = xlContext
.MergeCells = False
End With
Selection.Merge
Next i