地区代码怎么添加excel表格

1.excel vba 如何加选取区域(如何修改代码)

Sub AA()

range("B14:K20").select

For Each c In Selection

c.Value = Left(c.Value, Len(c.Value) - 2)

Next

End Sub

'或者

Sub AA()

For Each c In range("B14:K20")

c.Value = Left(c.Value, Len(c.Value) - 2)

Next

End Sub

2.在excel中如何用VBA对指定单元格区域写代码

方法1：先用printarea

设置打印区域，然后再打印。这种设置将会保存到excel文件中。比如：

worksheets("sheet1").pagesetup.printarea

=

"$a$1:$c$5"

worksheets("sheet1").printout

方法2：直接打印指定区域，而不修改打印区域设置。比如

worksheets("sheet1").range("$a$1:$c$5").printout

3.怎么把不同地区的价格代码公式加到EXCEL里呢?

使用if嵌套。

比如当单元格A1的值为1时用=1*4.5+CEILING(MAX(X-1,0),0.5)*0.6……嵌套级别限制 一个公式可以包含多达七级的嵌套函数。超过七级时用VBA自定义一个函数即可。

（不知道括号数目对不对，太多了，试一下）=if(A1=1,1*4.5+CEILING(MAX(X-1,0),0.5)*0.6,if(A1=2,1*4.5+CEILING(MAX(X-1,0),0.5)*1.3,if(A1=3,1*4.5+CEILING(MAX(X-1,0),0.5)*1.5,if(A1=4,1*7.5+CEILING(MAX(X-1,0),0.5)*4.5,if(A1=5,1*7.2+CEILING(MAX(X-1,0),0.5)*4.2,1*6.5+CEILING(MAX(X-1,0),0.5)*3.5)))))。

4.Excel 请教设置打印区域的代码怎么写

参考一下：

Sub pripage（) '打印设置

'Application.Dialogs(xlDialogPrinterSetup).Show '一句话代码，调出系统对话框手动设置选择打印区域

'----------------------------------------------

With ActiveSheet.PageSetup

'按自定义纸张打印

'注意：需先在打印设置中自定义一个命名为“SHD”的页面尺寸（长21cm*宽14.7cm）

.PaperSize = xlPaperSHD '设置纸张的大小为自定义的“SHD”。若为xlPaperA4则为A4纸

.Orientation = xlPortrait '该属性返回或设置页面的方向。wpsOrientPortrait 纵向；wpsOrientLandscape 横向

.LeftMargin = Application.InchesToPoints(1.5)

.RightMargin = Application.InchesToPoints(1.5)

.TopMargin = Application.InchesToPoints(1.5)

.BottomMargin = Application.InchesToPoints(1.5)

.HeaderMargin = Application.InchesToPoints(1)

.FooterMargin = Application.InchesToPoints(1)

.PrintGridlines = True

.CenterHorizontally = True '页面的水平居中

'.CenterVertically = True '页面垂直居中

.Zoom = False '将页面缩印在一页内

.FitToPagesWide = 1

'If Range("A1") <> "" Then '设置触发找印条件

.PrintArea = "" '取消打印区域

'.PrintArea = "$A$3:$G$18"

'Range("A3:G18").PrintOut Copies:=1, Collate:=True '打印指定区域，直接打印

Range("A3:G18").PrintOut Copies:=1, Preview:=True, Collate:=True '打印预览。

'End If

'上面代码即[a3:G18].PrintOut

End Sub

5.excel自定义功能区代码

我这里有一份是在2003版本下面我自己做的，截个表头给你，代码附后。

Sub Auto_open() MenuBars.Add "菜单" With MenuBars（"菜单"） .Menus.Add "基础设置" .Menus.Add "采购管理" .Menus.Add "生产管理" .Menus.Add "销售管理" .Menus.Add "报表管理" .Menus.Add "退出系统" .Menus.Add "返回Excel主菜单" End With With MenuBars（"菜单"）.Menus（"基础设置"） .MenuItems.Add "供应商代码"， "gysdma" .MenuItems.Add "销售商代码"， "xssdma" .MenuItems.Add "原料代码"， "yldma" .MenuItems.Add "成品代码"， "cpdma" .MenuItems.Add "BOM维护"， "bomwha" .MenuItems.Add "流程说明"， "lcsma" End With With MenuBars（"菜单"）.Menus（"采购管理"） .MenuItems.Add "入库单录入"， "rkdlra" .MenuItems.Add "入库明细表"， "rkmxba" .MenuItems.Add "收料单录入"， "sldlra" .MenuItems.Add "收料明细表"， "slmxba" End With With MenuBars（"菜单"）.Menus（"生产管理"） .MenuItems.Add "领料单录入"， "lldlra" .MenuItems.Add "生产领用明细表"， "sclymxba" .MenuItems.Add "产品入库单录入"， "cprkdlra" .MenuItems.Add "产品入库明细表"， "cprkmxba" End With With MenuBars（"菜单"）.Menus（"销售管理"） .MenuItems.Add "出库单录入"， "ckdlra" .MenuItems.Add "销售明细表"， "xsmxba" End With With MenuBars（"菜单"）.Menus（"报表管理"） .MenuItems.Add "原料库存表"， "ylkcba" .MenuItems.Add "成品库存表"， "cpkcba" .MenuItems.Add "半成品出入库存表"， "bcpcrkcba" End With MenuBars（"菜单"）.Menus（"退出系统"）.MenuItems.Add "保存退出"， "savequita" MenuBars（"菜单"）.Menus（"返回Excel主菜单"）.MenuItems.Add "返回系统菜单"， "Auto_close" MenuBars（"菜单"）.Activate Application.CommandBars("standard").Reset End Sub Sub gysdma() Worksheets（"供应商代码"）.Activate End Sub Sub xssdma() Worksheets（"销售商代码"）.Activate End Sub Sub yldma() Worksheets（"原料代码"）.Activate End Sub Sub cpdma() Worksheets（"成品代码"）.Activate End Sub Sub bomwha() Worksheets("BOM").Activate End Sub Sub lcsma() Worksheets（"流程说明"）.Activate End Sub Sub rkdlra() Worksheets（"入库单"）.Activate End Sub Sub rkmxba() Worksheets（"入库明细表"）.Activate End Sub Sub sldlra() Worksheets（"收料单"）.Activate End Sub Sub slmxba() Worksheets（"收料明细表"）.Activate End Sub Sub lldlra() Worksheets（"生产领料单"）.Activate End Sub Sub sclymxba() Worksheets（"生产领用明细表"）.Activate End Sub Sub cprkdlra() Worksheets（"产品入库单"）.Activate End Sub Sub cprkmxba() Worksheets（"产品入库明细表"）.Activate End Sub Sub ckdlra() Worksheets（"出库单"）.Activate End Sub Sub xsmxba() Worksheets（"销售明细表"）.Activate End Sub Sub ylkcba() Worksheets（"原料库存表"）.Activate End Sub Sub cpkcba() Worksheets（"成品库存表"）.Activate End Sub Sub bcpcrkcba() Worksheets（"半成品出入库存表"）.Activate End Sub。