[情報] spreadsheet 常用屬性

[frank6780 ( 努力賺錢 )]

http://wenku.baidu.com/view/811a698984868762caaed560.html

還沒實際測試

有機會再玩玩看


http://www.wenkudaquan.com/doc/20120709/325546.html

Spreadsheet 常用属性常用属性常用属性常用属性
标题栏可视
 Spreadsheet1.TitleBar.Visible=true
标题栏背景颜色
 Spreadsheet1.TitleBar.Interior.Color="Green"
标题栏标题内容
 Spreadsheet1.TitleBar.Caption="test"
标题栏字体颜色
 Spreadsheet1.TitleBar.Font.Color="Red"
标题栏字体名称
 Spreadsheet1.TitleBar.Font.
标题栏字体大小
 Spreadsheet1.TitleBar.Font.Size=10
标题栏字体是否加粗
 Spreadsheet1.TitleBar.Font.Bold=true
标题栏字体是否加下划线
 Spreadsheet1.TitleBar.Font.Underline=true
标题栏字体是否倾斜
 Spreadsheet1.TitleBar.Font.Italic=true
选取单个单元格
 Spreadsheet1.ActiveSheet.Range("A2").Select()
选取矩形区域内的所有单元格
 Spreadsheet1.ActiveSheet.Range("A2：D3").Select()
单元格宽度
 Spreadsheet1.ActiveSheet.Range("A2").ColumnWith=100
单元格高度
 Spreadsheet1.ActiveSheet.Range("A2").RowHeight=100
从当前位置删除指定的列数
 Spreadsheet1.ActiveSheet.Range("A2").DeleteColumns (10)
从当前位置删除指定的行数
 Spreadsheet1.ActiveSheet.Range("A2").DeleteRows(10 )
从当前位置插入指定的列数
 Spreadsheet1.ActiveSheet.Range("A2").InsertColumns (10)
从当前位置插入指定的行数
 Spreadsheet1.ActiveSheet.Range("A2").InsertRows(10 )
单元格框线的宽度
 Spreadsheet1.ActiveSheet.Range("A2").Borders.Weigh t=2
单元格框线的颜色
 Spreadsheet1.ActiveSheet.Range("A2").Borders.Color ="Red"
单元格框线样式
 Spreadsheet1.ActiveSheet.Range("A2").Borders.LineS tyle=4(2~6)
对单元格赋值
 Spreadsheet1.ActiveSheet.Range("A2").Value="ZZZ123"
剪切/复制/粘帖单元格内容
 Spreadsheet1.ActiveSheet.Range("A2").Cut(){Copy(); Paste()}
粘帖指定内容到单元格
 Spreadsheet1.ActiveSheet.Range("A2").ParseText("te st")
单元格内容清空
 Spreadsheet1.ActiveSheet.Range("A2").Clear()
单元格内容清空
 Spreadsheet1.ActiveSheet.Range("A1", "L200").ClearContents
单元格内执行查
询 Spreadsheet1.ActiveSheet.Range("A2").Find("test")
单元格背景颜色
 Spreadsheet1.ActiveSheet.Range("A2").Interior.Color="Yellow"
 Spreadsheet1.ActiveCell.Interior.ColorIndex = 48
单元格字体颜色
 Spreadsheet1.ActiveSheet.Range("A2").Font.Color="Red"
单元格字体名称
 Spreadsheet1.ActiveSheet.Range("D1").Font.Name = "宋体"
单元格超链接名称
 Spreadsheet1.ActiveSheet.Range("A2").Hyperlink.Nam e="超链接"
单元格超链接URL
 Spreadsheet1.ActiveSheet.Range("A2").Hyperlink.Add ress=“http://www.sohu.com”
单元格超链接删除
 Spreadsheet1.ActiveSheet.Range("A2").Hyperlink.Del ete()
单元格内文字垂直
对齐方向 Spreadsheet1.ActiveSheet.Range("A2").VAlignment=1（0，1，2）
Spreadsheet1.ActiveCell.Range("A2").VerticalAlignment = xlVAlignCenter


好像怪怪的...
※ 編輯: frank6780       來自: 111.243.160.165      (11/05 15:46)
推 water2924:還是只有簡單的操作啊~
→ water2924:如果我想在Cell中改成button屬性呢?
→ water2924:這方面的處理要怎麼弄?
→ water2924:看之前的code有SetCellType這函數 裡頭其他參數是什麼?
找一支按右鍵 移至定義看看
※ 編輯: frank6780       來自: 111.243.160.165      (11/05 15:50)
→ water2924:這些online help根本不會寫呀
沒人寫的 就只能自己摸了 = ="
※ 編輯: frank6780       來自: 111.243.160.165      (11/05 15:54)
推 water2924:移至定義找不到喔~
→ water2924:專案裡面也沒有 也許也是在.dll檔中吧
http://read.pudn.com/downloads86/sourcecode/windows/control/332464/
%E6%8A%A5%E8%A1%A8%E8%AE%BE%E8%AE%A1%E5%99%A8/SSVBX.BAS__.htm
試試這個
※ 編輯: frank6780       來自: 111.243.160.165      (11/05 16:07)
推 water2924:http://goo.gl/NxodX 幫縮
哈 懶得縮
' CellType property settings
Global Const SS_CELL_TYPE_DATE = 0
Global Const SS_CELL_TYPE_EDIT = 1
Global Const SS_CELL_TYPE_FLOAT = 2
Global Const SS_CELL_TYPE_INTEGER = 3
Global Const SS_CELL_TYPE_PIC = 4
Global Const SS_CELL_TYPE_STATIC_TEXT = 5
Global Const SS_CELL_TYPE_TIME = 6
Global Const SS_CELL_TYPE_BUTTON = 7
Global Const SS_CELL_TYPE_COMBOBOX = 8
Global Const SS_CELL_TYPE_PICTURE = 9
Global Const SS_CELL_TYPE_CHECKBOX = 10
Global Const SS_CELL_TYPE_OWNER_DRAWN = 11
※ 編輯: frank6780       來自: 111.243.160.165      (11/05 16:16)
推 gts2590:請參考SSOCX.h~C:\program File\FarPoint Technologies\
→ gts2590:Spread 8\Include\SSOCX.H
→ gts2590:以上由Doris大大提供~拍手~掌聲~尖叫~~~!!!