昨天一位老师问了一个问题，觉得挺典型的：就是怎样去掉桌面图标的隐影。可能你们要用的时候也出现过这种情况，下面是几种解决办法，共享出来，希望对你有所帮助，遇到问题的时候几种方法都可以试一下：

(1)右键单击桌面上的 我的电脑－属性－高级－（性能）设置－视觉效果－将“在桌面上为图标标签使用阴影”前面的勾点上－确定－确定。 



(2)在桌面上的空白地方点击右键鼠标－排列图标－将“在桌面上锁定web项目”前面的勾去掉。 



(3)在桌面上的空白地方点击右键－属性－桌面－自定义桌面－Web－将“锁定桌面项目”及“当前主页”等等只要有勾的地方全部把勾去掉－确定。 



(4)打开 开始－控制面板－辅助功能选项－显示－将“使用高对比度”前面的勾去掉－确定

一、msgbox 与inputbox
Vba 函数引用是前面那部分可以写
len() == vba.strings.len() 
msgbx == vba.interaction.msgbox
1、msgbox
Sub test()
MsgBox "你好", 1+48, "模拟", "帮助文件存放的位置", 0
End Sub
!中间的数值1显示确定、取消按钮，48表示警告图标，具体见老师ppt，也可以直接填52
缺省值 ： 默认值
Msgbox 的返回值
Sub test()
i = MsgBox("你好", 1 + 48)
MsgBox i
End Sub
2、inputbox
函数：
Inputbox(提示文字，标题文字，默认值，左边距，上边距，帮助文件，帮助文件索引)
Sub test()
InputBox "请输入名字", "输入框", "在这里写", 2000, 2000
End Sub
2000,2000距离左上角的位置
方法：
Inputbox(提示文字，标题文字，默认值，左边距，上边距，帮助文件，帮助文件索引，输入类型)
Sub test()
Dim i As Integer
i = Application.InputBox("请输入名字", , , , , , , 1)
MsgBox i
End Sub
最后一个参数：
输出的值与定义的值的类型不一样时，会报错
二、getopenfilename
参数：
GetOpenFilename (文件类型，优先类型，对话框标题，按钮文字，是否支持多选)
示例：
A= Application.GetOpenFilename("新表,*.xlsx,老表,*.xls", 1, "快特么选！", "确定", False)
"新表,*.xlsx,老表,*.xls" ：能打开什么类型的文件
1 ： 默认第一种类型
True : 可以多选，FALSE : 不可以多选
！当一个文件都没选时，即按了取消时，返回的值是false
注意：
这个方法并不会真正打开文件，只是返回文件完整路径！
文件类型参数中，先指定文件类型名，再指定后缀，要成对出现。
优先类型是指文件类型中列出的各种类型，哪种优先显示。
例如："Excel文件,*.xlsx,老表,*.xls,所有文件,*.*"
Sub text()
Range("a1") = Application.GetOpenFilename
End Sub 
A1 = D:data北京.xlsx
利用getopenname 打开文件
Sub text()
Dim str As String
str = Application.GetOpenFilename  ‘返回路径
Workbooks.Open str
End Sub
Sub text()
Dim str As String
Dim wb  As Workbook
str = Application.GetOpenFilename("excel文件,*.xls*", 2)
If str <> "False" Then
    Set wb = Workbooks.Open(str)
End If
End Sub
就可以对打开的文件进行后续的操作
同时打开多个文件  壳子
Sub text()
Dim arr
Dim wb  As Workbook
arr = Application.GetOpenFilename("excel文件,*.xls*", 2, , , True)
If arr(1) <> "False" Then
    For i = LBound(arr) To UBound(arr)
        Set wb = Workbooks.Open(arr(i))
        wb.Close
    Next
End If
End Sub
！Workbooks.Open arr(1)  '打开第一个文件
三、application.dialogs
具体内容查看老师Excel
‘另存为，会弹出窗口让自己选择存储的位置与文件名
Sub test()
Application.Dialogs(5).Show
End Sub
四、作业多文件合并
运行程序，让用户选择合并哪几个文件
Sub 合并()
Dim arr
Dim wb  As Workbook
arr = Application.GetOpenFilename("excel文件,*.xls*", 2, , , True)
If arr(1) <> "False" Then
    For i = LBound(arr) To UBound(arr)
        Set wb = Workbooks.Open(arr(i))
        For Each sht In wb.Sheets
            sht.Copy after:=ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count)
            ThisWorkbook.Sheets(ThisWorkbook.Sheets.Count).Name = Split(wb.Name, ".")(0) & sht.Name
        Next
         wb.Close
    Next
End If
End Sub
！要是把这段代码放在加载宏中，就不能出现thisworkbook，thisworkbook指的是存放加载宏的.xla文件，而非需要合并到某一文件的文件
修改如下：
Sub 合并()
Dim arr
Dim wb, wb1 As Workbook
Set wb1 = ActiveWorkbook   ‘也可以设置为wb1 = Workbooks.add 新建一个文件，合并到新建的文件中
arr = Application.GetOpenFilename("excel文件,*.xls*", 2, , , True)
If arr(1) <> "False" Then
    For i = LBound(arr) To UBound(arr)
        Set wb = Workbooks.Open(arr(i))
        For Each sht In wb.Sheets
            sht.Copy after:=wb1.Sheets(wb1.Sheets.Count)
           wb1.Sheets(wb1.Sheets.Count).Name = Split(wb.Name, ".")(0) & sht.Name
        Next
         wb.Close
    Next
End If
End Sub

	

老师们好，我是筱恬老师。今天跟大家分享11种练习汉字的题型。在制作作业练习时，我个人偏向简易风。除了在作业纸上添加帮助学生更好理解问题的图标以外，并不会添加太多花哨的图案。这主要是为了避免学生分心或是在纸上涂鸦。。 注：
使用的软件：Microsoft Word
使用的字体：STKaiti 和 Avenir.
使用的工具：形状、表格
01 补笔画
怎么去掉笔画？(方法很Old School)
Insert Shape
Shape Fill “White”, No Shape Outline
把形状放在你不要的笔画上
02.03 加减法04 看英文，写汉字05 根据部首，写一写
老师们也可让学生自己写部首的英文意思，或是让学生根据提供的汉字填写部首。
06 象形文字，连一连
为了节省作业纸的空间，所以我设计的连线题经常是横版，而不是竖版。
07 找一找
如果担心学生不熟悉该单元的汉字，建议老师在英文意思的旁边提供汉字，让学生先完成连线，才在表格里找汉字。
*有趣的在线生成Word Search：文字云 www.wordart.com
08 看图选择正确的汉字09 配对：部首与偏旁10 习字
比起在线生成的字帖，我更喜欢简单的版本，所以自己做了习字表格。笔顺一般从Yes! Chinese 在线字帖截图。
11 写一写你看到的汉字
需要下载地址的老师，请前往恬静筱课堂公众号，编辑并发送：“汉字练习题”，系统会自动回复您下载的地址。谢谢。
*老师们下载了文件以后，可根据自己的需求进行更改。
*如果下载后，模板有变，可能是因为老师们和我的软件并不兼容。
网页：    www.sheautian.com
twitter:  sheautian
IG:         tian.pitta

上午完成了APP“我的”页面制作，下午帮助老师制作图标，因为太久没有使用PS钢笔工具很是生疏，明天放假了很开心