vb.net用宏代码,vba编写宏代码

VB.NET 如何给vba程序中全局变量赋值

其实原理跟过程之间的传值原理一样，举个例子

成都创新互联公司服务项目包括临桂网站建设、临桂网站制作、临桂网页制作以及临桂网络营销策划等。多年来，我们专注于互联网行业，利用自身积累的技术优势、行业经验、深度合作伙伴关系等，向广大中小型企业、政府机构等提供互联网行业的解决方案，临桂网站推广取得了明显的社会效益与经济效益。目前，我们服务的客户以成都为中心已经辐射到临桂省份的部分城市，未来相信会继续扩大服务区域并继续获得客户的支持与信任！

测试结果如下

能给个采纳吗

上面是VB的写法，刚注意到你需要VB.NET的，那么看下面的截图

测试正常

用VB.NET程序编写代码

Delphi代码如下：

procedure TForm1.Button1Click(Sender: TObject);

var

购物总价:Integer;

折扣:Extended;

begin

购物总价:=StrToInt(Edit1.Text);

if 购物总价250 then

begin

折扣:=0;

end

else if 购物总价500 then

begin

折扣:=0.05;

end

else if 购物总价1000 then

begin

折扣:=0.075;

end

else if 购物总价2000 then

begin

折扣:=0.1;

end

{

此段的折扣是多少？

else if 购物总价3000 then

begin

折扣:=0.05;

end

}

else if 购物总价=3000 then

begin

折扣:=0.15;

end;

ShowMessage('您享受的折扣是：'+FloatToStr(折扣)

+' 原价：'+IntToStr(购物总价)

+' 折后总价：'+FloatToStr(购物总价*(1-折扣)));

end;

vb.net 设置EXCEL单元格的边框，只在下边有边框，其他三边没有边框，求代码

objRange.Borders(XlBordersIndex.xlEdgeBottom).LineStyle = XlLineStyle.xlContinuous

objRange.Borders(XlBordersIndex.xlEdgeBottom).ColorIndex = 1

objRange.Borders(XlBordersIndex.xlEdgeBottom).Weight = XlBorderWeight.xlThin

怎么用VB.NET生成含有宏代码的Excel

先创建一个模板excel文件，然后作为资源放在程序中，先释放这个文件，然后操作这个文件。

关于excel中生成的宏代码，如何在VB中使用

如果能在EXCEL里运行，那就能在VB中运行，首先你要确定“excel 11.0” 或9.0被引用，其次就是变量要定义好，是什么对象最好预定义，宏其实就是一个过程，在VB直接调用就可以了

vb如何用宏写word

宏操作是在打开word文档以后录制的,也就是说运行宏也要在打开word文档后进行,所以要把宏复制到vb环境中去运行的话,就得先在vb中操作打开word文档,参考下面代码:(演示前请先c;下建一个文件名为test.doc的word空文档,操作完成后,你会发现C盘里有个aa.doc文件,你打开就会发现宏操作写的一则通知)

Private Sub Command1_Click()

Dim MyWord As Word.Application

Dim MyWordBook As Word.Document

Set MyWord = New Word.Application

Set MyWordBook = MyWord.Documents.Add("c:\test.doc") '打开test.doc用户自定义的空白WORD文档

MyWordBook.Activate

'3.放置宏代码

With MyWordBook

'此处就可以插入宏代码了

' Macro1 Macro

' 宏在 2009-9-20 由 adsl 录制

'

Selection.Font.Size = 30

Selection.FormattedText.Bold = True

Selection.Font.Color = wdColorBlack

Selection.ParagraphFormat.Alignment = wdAlignParagraphCenter

Selection.TypeText Text:=" 通知"

Selection.Font.Color = wdColorRed

Selection.TypeParagraph

Selection.Font.Size = 22

Selection.TypeText Text:=" 今天下午三一）"

Selection.MoveLeft Unit:=wdCharacter, Count:=2

Selection.TypeText Text:="（"

Selection.MoveRight Unit:=wdCharacter, Count:=2

Selection.TypeText Text:="班 全体同学四点钟到操场进行体育课考试。"

Selection.TypeParagraph

Selection.TypeParagraph

Selection.TypeParagraph

Selection.TypeText Text:= _

" "

Selection.InsertDateTime DateTimeFormat:="yyyy-MM-dd", InsertAsField:= _

False, DateLanguage:=wdEnglishUS, CalendarType:=wdCalendarWestern, _

InsertAsFullWidth:=False

Selection.MoveUp Unit:=wdLine, Count:=1

Selection.Font.Size = 22

Selection.MoveRight Unit:=wdCharacter, Count:=1

Selection.TypeParagraph

Selection.Font.Size = 16

Selection.TypeText Text:=" "

Selection.Font.Color = wdColorRed

End With

'4.保存,关闭文档,退出

MyWord.Visible = False '设置WORD可见

MyWordBook.SaveAs FileName:="c:\aa.doc"

MyWordBook.Close

MyWord.Quit

Set MyWordBook = Nothing

Set MyWord = Nothing

MsgBox "操作完毕", vbOKOnly, "提醒"

unload me

End Sub