精华内容
下载资源
问答
  • VBA示例之 选择指定范围内使用了填充颜色的单元格,供初学者参考,大牛勿进~~~~~~~
  • vba日期选择器用法 VueRangedatePicker (VueRangedatePicker) Date picker with range selection. 带有范围选择的日期选择器。 View demo 查看演示 Download Source 下载源 安装 (Installation) npm install -...

    vba日期选择器用法

    VueRangedatePicker (VueRangedatePicker)

    Date picker with range selection.

    带有范围选择的日期选择器。

    安装 (Installation)

    npm install --save vue-rangedate-picker

    用法 (Usage)

    捆绑器(Webpack,汇总) (Bundler (Webpack, Rollup))

    import Vue from 'vue'
    import VueRangedatePicker from 'vue-rangedate-picker'
    // You need a specific loader for CSS files like https://github.com/webpack/css-loader
    import 'vue-rangedate-picker/dist/vue-rangedate-picker.css'
    
    Vue.use(VueRangedatePicker)

    浏览器 (Browser)

    <!-- Include after Vue -->
    <!-- Local files -->
    <link rel="stylesheet" href="vue-rangedate-picker/dist/vue-rangedate-picker.css"></link>
    <script src="vue-rangedate-picker/dist/vue-rangedate-picker.js"></script>
    
    <!-- From CDN -->
    <link rel="stylesheet" href="https://unpkg.com/vue-rangedate-picker/dist/vue-rangedate-picker.css"></link>
    <script src="https://unpkg.com/vue-rangedate-picker"></script>

    可用事件 (Available Events)

    You can catch these below Events to <rangedate-picker @events="events"></rangedate-picker> template :

    您可以将以下事件捕获到<rangedate-picker @events="events"></rangedate-picker>模板中:

    • selected

      已选

      Description : function that will $emit when datepicker set value, this function will get parameter response :

      说明 :该函数将在datepicker设置值时$emit ,此函数将获得参数响应:

      {
        start: dateObjectStart
        end: dateObjectEnd
      }

    可用道具 (Available Props)

    You can pass these below props to <rangedate-picker :props="props"></rangedate-picker> template :

    您可以将以下这些道具传递到<rangedate-picker :props="props"></rangedate-picker>模板:

    • configs

      配置

      Description : -

      说明 :-

      Type : Object

      类型 :对象

      Default Value : {}

      默认值{}

    • i18n

      i18n

      Description : For text translation (currently: ID/EN)

      描述 :用于文本翻译(当前:ID / EN)

      Type : String

      类型 :字符串

      Default Value : 'ID'

      默认值'ID'

    • months

      Description : Array of months name

      描述 :月份名称数组

      Type : Array

      类型 :数组

      Default Value :

      预设值

      ['Januari', 'Februari', 'Maret', 'April', 'Mei', 'Juni', 'Juli',
       'Agustus', 'September', 'Oktober', 'November', 'Desember']
    • shortDays

      短日子

      Description : Array of days name in short

      描述 :短名称的天数组

      Type : Array

      类型 :数组

      Default Value :

      预设值

      ['Min', 'Sen', 'Sel', 'Rab', 'Kam', 'Jum', 'Sab']
    • captions

      字幕

      Description : Object for text title and OK button

      描述 :文本标题和“确定”按钮的对象

      Type : Object

      类型 :对象

      Default Value :

      预设值

      {
        'title': 'Choose Dates',
        'ok_button': 'Apply'
      }
    • format

      格式

      Description : Date format

      描述 :日期格式

      Type : String

      类型 :字符串

      Default Value : 'DD MMM YYYY'

      默认值'DD MMM YYYY'

    • styles

      样式

      Description : -

      说明 :-

      Type : Object

      类型 :对象

      Default Value :

      预设值

      {
        daysWeeks: 'calendar_weeks',
        days: 'calendar_days',
        daysSelected: 'calendar_days_selected',
        daysInRange: 'calendar_days_in-range',
        firstDate: 'calendar_month_left',
        secondDate: 'calendar_month_right',
        presetRanges: 'calendar_preset-ranges'
      }
    • initRange

      initRange

      Description : -

      说明 :-

      Type : Object

      类型 :对象

      Default Value : null

      默认值null

    • startActiveMonth

      startActiveMonth

      Description : Month will be shown in first launch

      说明 :月份将在首次启动时显示

      Type : Number

      类型 :数字

      Default Value : new Date().getMonth()

      默认值new Date().getMonth()

    • startActiveYear

      startActiveYear

      Description : Year will be shown in first launch

      说明 :年份将在首次启动时显示

      Type : Number

      类型 :数字

      Default Value : new Date().getFullYear()

      默认值new Date().getFullYear()

    • presetRanges

      预设范围

      Description : Set of objects that will shown as quick selection of daterange

      描述 :一组对象,将显示为快速选择日期范围

      Type : Object

      类型 :对象

      Example Object :

      示例对象:

      {
        today: function () {
          const n = new Date()
          const startToday = new Date(n.getFullYear(), n.getMonth(), n.getDate() + 1, 0, 0)
          const endToday = new Date(n.getFullYear(), n.getMonth(), n.getDate() + 1, 23, 59)
          return {
            label: presetRangeLabel[i18n].today,
            active: false,
            dateRange: {
              start: startToday,
              end: endToday
            }
          }
        }
      }

      Default Value :

      预设值

      {
        today: function () {
          return {
            // label: 'string', active: 'boolean', dateRange: {start: date, end: end}
          }
        },
        thisMonth: function () {},
        lastMonth: function () {},
        last7days: function () {},
        last30days: function () {}
      }
    • compact

      紧凑

      Description : Set to 'true' if you want to make datepicker always shown in compact mode

      描述 :如果要使日期选择器始终以紧凑模式显示,则设置为'true'

      Type : String

      类型 :字符串

      Default Value : 'false'

      默认值'false'

    • righttoleft

      右到左

      Description : Set to 'true' if you want datepicker shown align to right

      说明 :如果希望显示的日期选择器right对齐,则设置为'true'

      Type : String

      类型 :字符串

      Default Value : 'false'

      默认值'false'

    发展历程 (Development)

    启动视觉测试 (Launch visual tests)

    npm run dev

    发起因果报应 (Launch Karma with coverage)

    npm run dev:coverage

    建立 (Build)

    Bundle the js and css of to the dist folder:

    将的js和CSS捆绑到dist文件夹:

    npm run build

    出版 (Publishing)

    The prepublish hook will ensure dist files are created before publishing. This way you don't need to commit them in your repository.

    prepublish挂钩将确保在发布之前创建dist文件。 这样,您无需在存储库中提交它们。

    # Bump the version first
    # It'll also commit it and create a tag
    npm version
    # Push the bumped package and tags
    git push --follow-tags
    # Ship it 🚀
    npm publish

    翻译自: https://vuejsexamples.com/range-date-picker-with-simple-usage/

    vba日期选择器用法

    展开全文
  • 工作上需要一个表单打印一个标签 金山文档没办法实现 所以用VBA写了个这个小玩意儿 用着还挺好用,现在天天都在用 由于工作场景的不同和收集内容的不同,应该没办法直接拿去使用 但是代码还是具有参考意义的,所以我...
  • 想用vba选中一列中第一个有值的单元格将其填色,现在不知如何选中,求助</p>
  • 函数作用:在多个工作表中查找一个范围内符合某个指定条件的项目对应指定范围加总求和..........................59 '35.函数作用:返回 Column 英文字.......................60 '36.函数作用:查找指定列名的列数.......
  • 按下快捷键,运行宏(VBA代码) 使用代码的好处: Excel 修改 【数据图表】 的 【数据源】 的范围 ■核心代码 ActiveChart.SetSourceData Source:=Range("B7:F39") 范围 【B7:F39】 是整个图表的范围(包括...

    目录

    ■核心代码

    ■操作

    ■例:

    选中图表

    按下快捷键,运行宏(VBA代码)

    使用代码的好处:

    ■扩展 (查看宏的快捷键)

    ■其他图表制作



    ■核心代码

    Excel 修改 【数据图表】 的 【数据源】 的范围(VBA)

    ActiveChart.SetSourceData Source:=Range("B7:F39")

    范围 【B7:F39】 是整个图表的范围(包括标题行)

    ■操作

    1.随意录制一段宏,写入如下代码

    Sub 宏1()
    '
    ' 宏1 宏
    '
    ' 快捷键: Ctrl+l
    '
    
        'ActiveChart.SetSourceData Source:=Range("B7:F25")
        ActiveChart.SetSourceData Source:= Range ("B7:F39")
        
    End Sub
    

    2.选中图表,按下 录制宏 所 对应的快捷键

    ■例:

    选中图表

    按下快捷键,运行宏(VBA代码)

    使用代码的好处:

       1.快

       2.其他已经设置过的内容不受影响(比如图表中显示的【系列】))

     ---

    ■扩展 (查看宏的快捷键)

    忘记快捷键时,查看快捷键

    (看代码,或在这里查看)

    (运行宏的) 快捷键是什么,是在这里设定的,与代码中的注释,半毛钱关系也没有!

    ---

    ■其他图表制作

    Excel制作图表(二)--- 燃尽图_sun0322-CSDN博客

    展开全文
  • 获取指定行列最后一个非空单元格 1、到达对象所在区域的边缘 在“A1:H16”的数据中,如何一步到达单元格所在行的最下、上、左、右端,有以下几种方式: 【Crtl】+↑:到达该列数据的最上端单元格,其余箭头功能类似...

    获取指定行列最后一个非空单元格

    1、到达对象所在区域的边缘

    在“A1:H16”的数据中,如何一步到达单元格所在行的最下、上、左、右端,有以下几种方式:

    • 【Crtl】+↑:到达该列数据的最上端单元格,其余箭头功能类似。
    • 将鼠标点在所选中单元格上边框出,待鼠标形状显示为四周带箭头形状时双击即可到达最上端。
    • 使用VBA中的End属性。
    Sub test1()
        Sheet1.Range("a1").End(xlDown).Select '选中该数据源中第一列最下面一个单元格
        Sheet1.Range("a3").End(xlUp).Select '选中该数据源中第一列最上面一个单元格
    End Sub
    

    2、选中数据的最下面单元格

    上面已经介绍了一种方法,即用end(xldown)进行选择,但是在实际工作中,可能出现第一列中间某一行没有数据的现象,此时将会定位到空白处而不是最后一行,此时可以逆向思维考虑,从下向上进行选择。

    Sub test2()
        Sheet1.Range("a1048576").End(xlUp).Select '1048576为Excel中最大的行数,当然只要数足够大即可
    End Sub
    
    展开全文
  • VBA概念 VBA(Visual Basic for Applications)是Visual Basic的种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程序功能,特别是Microsoft Office软件。它...

    一、VBA概念

    VBA(Visual Basic for Applications)是Visual Basic的一种宏语言,是在其桌面应用程序中执行通用的自动化(OLE)任务的编程语言。主要能用来扩展Windows的应用程序功能,特别是Microsoft Office软件。它也可说是一种应用程式视觉化的 Basic 脚本。(来自百度百科

    二、创建步骤

    点击 文件-选项
    在这里插入图片描述
    在这里插入图片描述
    点击 自定义功能区-勾选开发工具,然后确定
    在这里插入图片描述
    并保存宏为有效(后缀为xlsm)
    在这里插入图片描述
    接下来就可以编写VBA程序了
    在这里插入图片描述
    打开界面如下
    在这里插入图片描述
    插入一个新的模块
    在这里插入图片描述
    创建点击按钮实现第一个程序

    插入-选择按钮
    在这里插入图片描述
    然后在表格区域画上一个按钮大小范围,命名并新建
    在这里插入图片描述
    在这里插入图片描述
    右击按钮
    在这里插入图片描述
    点击确定
    在这里插入图片描述
    输入弹窗内容并保存
    在这里插入图片描述
    点击测试运行
    在这里插入图片描述
    弹窗成功弹出!
    在这里插入图片描述
    这个时候按钮就具有点击事件了
    在这里插入图片描述
    同步的步骤视频在B站

    展开全文
  • 2 直接把 range当数组处理,但是取 每单元格的 i.row i.column 取出来的是真实的 cells(i,j) 的 index sub test_range2() For Each i In Range("a3:b5") Debug.Print "cells(" & i.Row & "," &...
  • VBA选择单元格的语句

    万次阅读 2013-08-27 21:11:56
    如何选择当前工作表中的单元格? 例如,可以使用下面的代码选择当前工作表中的单元格D5: ...例如,要选择同一工作簿中另工作表上的单元格E6,可以使用下面的代码: Application.Goto ActiveWorkb
  • 如果需要对用户指定的文件进行操作,可以使用GetOpenFilename方法打开Excel内置的【打开】对话框,获取用户选择的文件名,此过程并不需要真正打开文件,示例代码如下。 Sub SelectFile() Dim vntFilename As ...
  • 本函数用来获取页面边框范围...VBA参考代码 '================================================================ ' 获取页面边框范围内的所有图形 ' p: 页面对象 ' 返回: 指定页面 p 边框范围内的所有形状 '======...
  • 、复制粘贴固定区域的单元格 因为以下内容都是复制单个或者固定区域的单元格内容,就不多说了,备注上面都有说明。 Option Explicit Sub CopyRange() '复制单元格内容示例1 '注意:单元格的格式、公式、批注...
  • VBA,excel中选择特定内容复制粘贴

    万次阅读 2017-11-11 15:50:37
    重点是这个:End(xlDown)、End(xlUp)、End(xltoLeft)、End(xltoRight),就是从某个单元格开始,向下/上/左/右 找到第一个有数据的单元格。 sheet1 1 | A | B 2 | id | 公式列 3 | 001 | 20 4 | 002 | 11 5 | ...
  • excel单元格一个条件匹配多个结果VBA

    千次阅读 2020-04-02 14:42:08
    如图,一批如表1的数据,一个单元格对应多个值,需要去重单元格并合并其值在同一个单元格中展示,因此用VBA写个Function实现手敲的烦恼。 VBA实现程序: Function abc(a As Range, b As Range, c As String) Dim t ...
  • 心得(4):怎么利用VBA选定excel中的特定区域或者特定的点,并得到它的值 问题:1.如何选定excel中特定的点或者区域;2.如何按方向(自上而下,自左而右。) 解决: 选取特定的点: 结果如下: 除了上述的方式...
  • Range是VBA的東西不屬excel而ActiveSheet.PageSetup.PrintArea這句是直接指向excel的printarea要求返回的是絕對值(如:$A$1)所以說{不能设置类PageSetup的PrintArea 属性},如果想用range來表達只要在後邊加上.address...
  • 使用Excel VBA查找最后

    千次阅读 2020-08-05 10:21:51
    使用Excel VBA查找最后行 (Find Last Row With Excel VBA) Recently, I complained about having trouble getting Excel VBA to correctly find the last row with data in a column, when using Excel tables....
  • VBA操作Excel之获取单元格区域

    千次阅读 2020-10-17 12:02:48
    VBA打开工作簿后,通常一个工作簿有若干个工作表Sheet,访问其中一个工作表有三种方法,代码如下: ThisWorkbook.Sheets(1) ThisWorkbook.Sheets.Item (1) ThisWorkbook.Sheets("Sheet1")'Sheet1为工作表名称 二、...
  • 的数据合并在一个新工作簿的新Sheet页里面(新的Sheet页需命名为“数据汇总”); <p>2、新的Sheet页里面合并的数据只保留一个表头; <p>3、新的Sheet页里面合并的数据之间必须连贯࿰...
  • 问题来源于群里的一个玩家提问 需要统计一个文件夹下的多个同类文件 提问者要求的是csv,我例子里用的xlsm 统计这些表某一列的值,然后显示出统计页 1.2 初期想到的难点 文件夹下统计某一种文件不难,但是需要...
  • 蓝字关注,加微信NZ9668获资料信息VBA解决方案 系列丛书作者头条百家平台 VBA资深创作者_______________________________大家好,今日继续和大家分享VBA编程中常用的常用“积木”过程代码。这些内容大多是我的经验的...
  • EXCEL VBA 选择文件对话框

    万次阅读 2013-08-20 15:13:53
    Sub XXX() Dim arr() arr = Application.GetOpenFilename("所有支付文件 (*.xls;...*.csv,Excel 文件 (*.xls),*.xls,Excel2007 文件 (*.xlsx),*.xlsx,CSV 文件 (*.csv),*.csv", , "选择文件", , T
  • Sub f() Set myb = CreateObject("scripting.dictionary"): myb("PICSID") = ...Set Rng = Application.InputBox("选择统计区域:", Type:=8) ActiveSheet.Cells.Interior.ColorIndex = 0 Rng.Interior.ColorIndex = 3
  • VBA程序如下: Sub test1() Dim w As Worksheet Set w = Worksheets("测试数据") Dim i As Integer, j As Integer, num As Integer, col As Integer Dim r As Range, rr As Range ' rr是需要复制的单元格 ...
  • 即 sheet 中不只这一个唯一区域时,这个方法不好用。但查全表的所有区域,很简洁好用" Sub test81() '取某个区域最后一个单元格的方法(右下角的cell) m1 = Range("a1").SpecialCells(xlCel...
  • VBA-选定Excel单元格区域的方法

    千次阅读 2020-02-23 14:13:34
    VBA 中一般使用 Select 方法选定单元格或单元格区域,格式为:.select。但是需要注意的是在使用该函数之前保证单元格所在工作表为活动工作表。 Sub test1() Range("a1:d4").Select Sheet2.Activate '激活工作表...
  • 零基础自学VBA

    2019-06-17 17:05:11
    零基础自学VBA 学习笔记() 学习内容:IF/IIF循环嵌套 (1)IF语法 IF command1 then*(如果command1成立,那么执行command2)* command2 elseif command3 then*(如果command1不成立,但是command3成立,...
  • 如图所示,本例希望能够从员工列表中随机抽取5名员工的记录,该如何用VBA实现? 员工编号 姓名 部门 员工编号 姓名 部门 0006 程建华 管理部 0314 张宏 销售部 0009 ...
  • VBA 自定义对话框

    2020-08-17 22:09:45
    inputbox输入框之前已经用过了,但是除了之前VBA中用的inputbox之外,还有Application对象中的方法,这两是不一样的。 ①VBA中的inputbox函数用法: Dim str As String str = InputBox("请随便输入串字符串...

空空如也

空空如也

1 2 3 4 5 ... 20
收藏数 3,615
精华内容 1,446
关键字:

vba选择一个范围