当+(加号)碰上input&Excel测量文本长度

01

1.当 (加号)碰上input

代码语言：javascript复制

data GHDD;
xxx=" 86";
sss=input(xxx,best.);
run;

2.SDTM.LB.LBSTREFC这个变量在IG3.2里是Perm,IG3.3里是Exp,IG3.4里是先改成Perm,然后把这个变量删掉了 https://www.cdisc.org/kb/known-issues/lbstrefc-core-attribute-should-not-have-been-expected-sdtmig-v3-3

3.取最大长度

代码语言：javascript复制

proc sql noprint;
select strip(name)||" $"||strip(put(max(length),best.)) into:maxlen1 separated by " " from dictionary.columns
where upcase(libname)="WORK" and upcase(memname) in ("TU_T_SCR" "TU_TARGET")
and type="char" and upcase(name) not in ("RECORDDATE")
group by name
having count(name)>1;
run;

4.Excel中测量UTF-8编程环境下--TEST，--TESTCD，QLABEL等的长度，中英文通用。=lenb(A1)

5.获取数据集的创造日期

代码语言：javascript复制

%let data_set = sashelp.class;
%let dsid = %sysfunc (open(&data_set));
%let cdate =%sysfunc(attrn(&dsid,crdte));
%let rc=%sysfunc(close(&dsid));
%let cdtcn =%sysfunc(datepart(&cdate));
%put &cdtcn;

proc contents data=raw.dm(keep=subject) noprint out=date(keep=crdate);
run;
proc sql noprint;
    select distinct put(datepart(crdate),yymmddn8.) into:crdate trimmed from date;
run;
%put &crdate.;

6.VBA改变文本字体

代码语言：javascript复制

Sub FileSave()
    Selection.WholeStory
    Selection.Font.NameFarEast = "宋体"
    Selection.Font.NameAscii = "Times New Roman"
    Selection.HomeKey Unit:=wdStory
    Do
        Selection.Find.ClearFormatting
        Selection.Find.Execute findtext:="^#"
        If Selection.Find.Found = True Then Selection.Font.Name = "Arial"
    Loop Until Selection.Find.Found = False
    Selection.HomeKey Unit:=wdStory
    ActiveDocument.Save
End Sub

尊敬的读者，首先感谢您对本篇文章的关注和阅读。在此，本小编想要说明的是，以上所述内容都是经过笔者认真整理和撰写的，但限于个人能力和知识水平等因素，难免存在疏漏或错误之处。如有不当之处，敬请包涵并指正，本小编将虚心接受您的批评与建议，并严谨修正文章。再次感谢您对本篇文章的支持与厚爱。

以上就是今天的内容了，喜欢的话麻烦点个关注，非常感谢！！！

selection 编程 变量 excel input

0 人点赞