VFP 愛用者社區

[kk]

.Selection.HorizontalAlignment=-4108 &&儲存格置中
.Selection.HorizontalAlignment=-4152 &&儲存格靠右
.Selection.HorizontalAlignment= :???: &&儲存格靠左

[hunter5608d]

不是可以用 ******.cells(1,1).horizontalalig = 1
(1默認自動 2.左 3.中 4.右)

[kk]

謝謝您, 我試過了,由於我的資料在FOXPRO是文字型態"1234", 轉到EXCEL它總是會靠右, 還好我已找到解決的方法, 那就是設定儲存格格式的方式, 也題供給各位參考, 如下
.Cells(12+i,1).Value = DebitNote.InvoiceNo
.Range(.Cells(12+i,1),.Cells(12+i,1)).Select
.SELECTION.NumberFormatLocal = "@" && 儲存格格式設定
當設定為"@" 它的顯示就會靠左了
當然若有更好的方式還請各位前輩指教

[Ruey]

我看ㄚ貴的程式可以的,也跟你的1樓說法一樣.



*!*下列是ㄚ貴的程式
LParameters xlsfilename,tobequit,xlsfontname,xlsfontsize
* xlsfilename 想要開啟的已存在的 Excel 檔案,如 'd:\test.xls'
* tobequit Excel 報表製作完成後是否要關閉 Excel ,如 .T. or .F.
* xlsfontname Excle 內文字型,如 '細明體'
* xlsfontsize Excel 內文字大小,如 12
* 完整傳值範例: do exp_excel_4 with 'd:\test.xls',.F.,'細明體',12

lo_Excel = CreateObject('Excel.Application')
lo_Excel.WorkBooks.Open(xlsfilename)
With lo_Excel.Application && 此為指向 lo_Excel.Application 這一層,如此可使下一列 lo_Excel.Application.Visible = .T. 變成比較簡短
.DisplayAlerts=.F. && 關閉警告,如存檔詢問是否覆蓋舊檔
.ScreenUpdating=.F. && 關閉即是運算,加快處裡速度
*.Run("Macro1") && 執行巨集
.Cells.Select && 選取整個Excel工作表
.ActiveWindow.Zoom=75 && 顯示比例 75%
.Selection.Font.Name = xlsfontname && 設定字型
.Selection.Font.Size = xlsfontsize && 設定字體大小
.Selection.Columns.AutoFit && 最適欄寬
.Cells(1,1).Select && 選定A1儲存格
.Selection.End(-4161).Select && 選定第一列最後一行儲存格
.Range(.Selection, .Cells(.ActiveCell.Row, 1)).Select && 從目前選定的儲存格往左連續選取至第一個儲存格
With .Selection
*.Interior.Pattern = 2
.HorizontalAlignment = -4108 && 儲存格置中顯示
.Borders(1).LineStyle = 1 && 每個(各個)儲存格 Left 框線為實線
.Borders(2).LineStyle = 1 && 每個(各個)儲存格 Top 框線為實線
.Borders(3).LineStyle = 1 && 每個(各個)儲存格 Bottom 框線為實線
.Borders(4).LineStyle = 1 && 每個(各個)儲存格 Right 框線為實線
.Borders(7).Weight = -4138 && 選取區塊的最 Left 框線的寬度為 xlMedium 或 -4138,預設值為 xlThin 或 2
.Borders(.Weight = -4138 && 選取區塊的最 Top 框線的寬度為 xlMedium 或 -4138,預設值為 xlThin 或 2
.Borders(9).Weight = -4138 && 選取區塊的最 Bottom 框線的寬度為 xlMedium 或 -4138,預設值為 xlThin 或 2
.Borders(10).Weight = -4138 && 選取區塊的最 Right 框線的寬度為 xlMedium 或 -4138,預設值為 xlThin 或 2
*.Borders(11).Weight = 2 && 選取區塊的內部垂直線的寬度為 xlThin 或 2
*.Borders(12).Weight = 2 && 選取區塊的內部水平線的寬度為 xlThin 或 2
*.Interior.ColorIndex = 35 && 填滿儲存格顏色為淺綠色
.Interior.ColorIndex = 41 && 填滿儲存格顏色為寶藍色
.Font.ColorIndex = 2 && 變更儲存格字體顏色為白色
EndWith
.Range("A2").Select && 點選 A2 儲存格
.ActiveWindow.FreezePanes=.T. && 凍結窗格
*lo_Excel.ActiveSheet.HPageBreaks.Add(.Cells(5, 1)) && 插入分頁
*.Columns("F:F").Select && 選取整個欄 F:F
*With .Selection
* .HorizontalAlignment = -4108 && 儲存格置中
*EndWith
*.ActiveCell.SpecialCells(11).Select && 直接選取最後一欄最後一列儲存格 ,在Excel內操作為 Ctrl+End
With .ActiveSheet.PageSetup
.PrintTitleRows = "$1:$1" && 版面設定之工作表列印標題列
.CenterFooter = "第 &P 頁，共 &N 頁" && 版面設定之頁尾
.PrintGridlines = .T. && 版面設定之列印選取列印格線
EndWith
.ScreenUpdating=.T. && 打開即時運算,將最後結果運算出來
.Visible = .T. && 檢視Excel
if tobequit=.T. && 呼叫程式傳值確定要關閉Excel檔案
.ActiveWorkbook.Save && 儲存檔案
.ActiveWorkBook.Close()
.Quit()
endif
EndWith

[garfield]

如果你的資料在FOXPRO是文字型態"1234", 在將資料貼到Excel時, Excel會以為文字型態的數字就是數字不是文字, 所以它就自作聰明的將它靠右了, 所以你也可以在文字前加一個 ' 來跟EXCEL說"這是一個文字型態的字串", 它就不會以為它是數字了, 也就不會靠右, 試看看吧.

[kk]

非常謝謝各位的指導,在這裡就是有家的感覺

[goto-dream]

[elleryq]

[garfield]

goto-dream, 你的問題是什麼 ?

[goto-dream]

加入' 號,這樣會多一各"1234'"

想知道如何漂亮的去掉 ' 號

[jeff25]

儲存格格式設成文字就 ok 了
NumberFormatLocal = "@"

[garfield]

我的意思是
.Range("A2").FormulaR1C1 = ['1234]
在儲格裡的內容最左邊插入' , 這個功能在 lotus 時代就有了, 所以只有像我這種遠古時代的人才知道, 現代人就只會用以下這兩行程式碼吧!
.Range("A2").FormulaR1C1 = [1234]
.Range("A2").NumberFormatLocal = [@]

[黃澤民]

我記的還有一個
.Range("A2").FormulaR1C1 = [^1234]
是置中還是??忘了

[goto-dream]

1.原來我程式寫錯了.正確的是下面的
ExcelApp.cells(i,j).NumberFormatLocal = [@]
ExcelApp.cells(i,j).VALUE=[1234]
我在NumberFormatLocal之前多了各Selection
ExcelApp.cells(i,j).Selection.NumberFormatLocal = [@]

2.Range("A2").FormulaR1C1 = [^1234]
這各我試出來看到的直會多^

[朱育興]