如何将"=if (c2>0,"是","否")"写进电子表格单元格

q3_2006

ll_j 发表于 2014-7-31 17:21
试了一下，没什么有效办法，有几个思路可以参考：
1.使用excel的text函数，复杂，但得到的是字符串。
2 ...

不知道这个公式怎么写到EXCEL....=TEXT(1,"00#")....大师给转转呗....

lht

ll_j 发表于 2014-7-31 12:40
看看这样：

按ll_j的办法,可以解决问题,但还得请教ll_j,如果c2中2为变量该怎么写?(即可以为c2、c3、c4、c5等）

edata

(strcat "c" (itoa i))

edata

q3_2006 发表于 2014-7-31 18:03
不知道这个公式怎么写到EXCEL....=TEXT(1,"00#")....大师给转转呗....

excel自动改变001为1，你要更改excel单元格格式，选择自定义，输入000，之后拖动格式保持该列格式一致。
操作excel没用过，我估计gu_xl能解决，通过输出xls格式，而非csv文本。。csv并非excel文件。

ll_j

用csv文本格式来写excel文档的确不是好办法，如果想研究这个，建议还是研究VLisp和VBA。

1. (defun c:tt ()
   
2.   (setq ffn (getfiled "选择文件" "" "csv" 1)
   
3.         ff  (open ffn "w")
   
4.   )
   
5.   (setq b  2.1
   
6.         aa "C"
   
7.         ab 1
   
8.   )
   
9.   (princ 1 ff)                          ;数字可以直接写入文件
   
10.   (princ "," ff)
    
11.   (princ (strcat "\"=text("
    
12.                  (rtos b)
    
13.                  ","
    
14.                  "\"\"000.00\"\")\""
    
15.          )
    
16.          ff
    
17.   )
    
18.   (princ "," ff)
    
19.   (princ "3" ff)                        ;数字也可以当作字符写入文件
    
20.   (princ "," ff)
    
21.   (princ (strcat "\"=if("
    
22.                  aa
    
23.                  (itoa ab)
    
24.                  ">0,\"\"是\"\",\"\"否\"\")\""
    
25.          )
    
26.          ff
    
27.   )                                     ;写到文件中应该包括全部的引号，即声明是字符串
    
28.   (close ff)
    
29. )

(defun c:tt ()<br />   (setq ffn (getfiled "选择文件" "" "csv" 1)<br />         ff  (open ffn "w")<br />   )<br />   (setq b  2.1<br />         aa "C"<br />         ab 1<br />   )<br />   (princ 1 ff)                          ;数字可以直接写入文件<br />   (princ "," ff)<br />   (princ (strcat "\"=text("<br />                  (rtos b)<br />                  ","<br />                  "\"\"000.00\"\")\""<br />          )<br />          ff<br />   )<br />   (princ "," ff)<br />   (princ "3" ff)                        ;数字也可以当作字符写入文件<br />   (princ "," ff)<br />   (princ (strcat "\"=if("<br />                  aa<br />                  (itoa ab)<br />                  ">0,\"\"是\"\",\"\"否\"\")\""<br />          )<br />          ff<br />   )                                     ;写到文件中应该包括全部的引号，即声明是字符串<br />   (close ff)<br /> )

lht

ll_j 发表于 2014-7-31 21:15
用csv文本格式来写excel文档的确不是好办法，如果想研究这个，建议还是研究VLisp和VBA。

按ll_j的方法彻底解决了,谢谢ll_j!

edata

应该是这个VBA属性

全部显示

NumberFormat 属性
参阅应用于示例特性
应用于 DataLabel、DataLabels、PivotField、Style 和 TickLabels 对象的 NumberFormat 属性。

返回或设置对象的格式代码。String 类型，可读写。

expression.NumberFormat

expression      必需。该表达式返回上述对象之一。

应用于 CellFormat 和 Range 对象的 NumberFormat 属性。

返回或设置对象的格式代码。如果指定区域中的所有单元格包含不同的数字格式，则该值为 Null。Variant 类型，可读写。

expression.NumberFormat

expression      必需。该表达式返回上述对象之一。

说明
对于 PivotField 对象，可以只对其中一个数据字段设置 NumberFormat 属性。

格式化代码与“单元格格式”对话框中“格式化代码”选项相同的字符串。Format 函数使用与 NumberFormat 和 NumberFormatLocal 属性不同的格式化代码。

示例
以下这些示例分别对 Sheet1 中的 A17 单元格、第一行和 C 列的数字格式进行设置。

Worksheets("Sheet1").Range("A17").NumberFormat = "General"
Worksheets("Sheet1").Rows(1).NumberFormat = "hh:mm:ss"
Worksheets("Sheet1").Columns("C"). _
    NumberFormat = "$#,##0.00_);[Red]($#,##0.00)"