EXCEL VBA 窗体三级下拉菜单

请各位大神们帮帮忙我是一菜鸟!我想通过vba窗体做一个三级下拉菜单!三级下拉菜单前两级放在复合框内最后一级放在列表框内!所选内容放在文字框内!例如:某某省某某市某某县!然后把所选内容放在文字框内!谢谢各位大神了!

1个回答

哎!!!!!大神都去哪里了!

Csdn user default icon
上传中...
上传图片
插入图片
抄袭、复制答案,以达到刷声望分或其他目的的行为,在CSDN问答是严格禁止的,一经发现立刻封号。是时候展现真正的技术了!
其他相关推荐
vba窗体中的文本框如何在运行时显示想要显示的内容?
vba窗体中的文本框如何在运行时显示想要显示的内容?就是显示提示信息。
Excel VBA中把多个Excel数据的某一列导入到另一个新的Excel的sheet中(导入的列在一个sheet里)。VBA小白 谢谢大家
有3个.xls还有两个.xlsx (每个Excel都有多个sheet) 要导入五个Excel表的所有sheet的某一列到新的Excel表的sheet中 标签应该是 Excel VBA 但是没找到就随便找了一个
Excel VBA 超链接中如何在访问地址时并选中指定文件的名字
求解Excel VBA 超链接中如何在访问地址时并选中指定文件夹
excel vba中调用SQLConfigDataSource函数时返回值总是FALSE,是哪里出错了?请高手指教!
excel vba中调用SQLConfigDataSource函数时返回值总是FALSE,是哪里出错了?请高手指教! 代码如下: Private Const ODBC_ADD_SYS_DSN = 4 Private Declare PtrSafe Function SQLConfigDataSource Lib "odbccp32.dll" (ByVal hwndParent As Long, ByVal fRequest As Long, ByVal lpszDriver As String, ByVal lpszAttributes As String) As Long Public Function LoadDbSource2(StrDriver, StrAttributes As String) As Boolean LoadDbSource2 = SQLConfigDataSource(0&, ODBC_ADD_SYS_DSN, StrDriver, StrAttributes) End Function Sub hong() Dim StrAttributes As String StrAttributes = "DSN=AccessODBC2" & Chr(0) & "Desciption=动态加载ODBC示例" & Chr(0) StrAttributes = StrAttributes & "Dbq=" & "C:\Users\Administrator\Desktop\180608YearInterestRate.mdb" & Chr(0) & "FIL=MS Access;" & Chr(0) StrAttributes = StrAttributes & "MaxBufferSize=2048" & Chr(0) & "PageTimeout=5" & Chr(0) & Chr(0) Call LoadDbSource2("Microsoft Access Driver (*.mdb)", StrAttributes) End Sub
如何使用VBA实现判断:①某个excel表中是否含有另一excel中相关内容②如果没有,将此另一excel的数据填入此excel中的相应位置
如何使用VBA实现判断: ①某个excel表中是否含有另一excel中相关内容 ②如果没有,将此另一excel的数据填入此excel中的相应位置
excel VBA 如何链接mongodb
如题,现在想用VBA宏去操作mongodb,不知道ConnectionString怎么填写?还需要安装mongodb-odbc驱动么??
EXCEL vba 运行错误438
打开网页还没有问题,不懂为什么加个do while/ debug.print就提示 运行错误 438,对象不支持该属类或方法,我用的EXCEL2013版,WIN7-64BIT 这是错误代码 : Sub BrowseToSite() Dim IE As New SHDocVw.InternetExplorer 'Set IE = New SHDocVw.InternetExplorer IE.Visible = True IE.navigate "www.baidu.com" Do While IE.ReadyState <> READYSTATE_COMPLETE Loop Debug.Print IE.Location; IE.LocationURL 大家有这个问题吗? 求解决方法或者思路!~
excel2016 64bit的vba中使用API函数RegisterClass注册窗体类就Excel就崩溃
excel2016 64bit的vba中使用API函数RegisterClass注册窗体类就Excel就崩溃!请问是怎么回事? ``` Option Explicit Public Declare PtrSafe Function RegisterClass Lib "user32" Alias "RegisterClassA" (Class As WNDCLASS) As Long Public Declare PtrSafe Function UnregisterClass Lib "user32" Alias "UnregisterClassA" (ByVal lpClassName As String, ByVal hInstance As Long) As Long Public Declare PtrSafe Function DefWindowProc Lib "user32" Alias "DefWindowProcA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Public Declare PtrSafe Function GetMessage Lib "user32" Alias "GetMessageA" (lpMsg As Msg, ByVal hwnd As Long, ByVal wMsgFilteRmin As Long, ByVal wMsgFilterMax As Long) As Long Public Declare PtrSafe Function TranslateMessage Lib "user32" (lpMsg As Msg) As Long Public Declare PtrSafe Function DispatchMessage Lib "user32" Alias "DispatchMessageA" (lpMsg As Msg) As Long Public Declare PtrSafe Function ShowWindow Lib "user32" (ByVal hwnd As Long, ByVal nCmdShow As Long) As Long Public Declare PtrSafe Function LoadCursor Lib "user32" Alias "LoadCursorA" (ByVal hInstance As Long, ByVal lpCursorName As Any) As Long Public Declare PtrSafe Function LoadIcon Lib "user32" Alias "LoadIconA" (ByVal hInstance As Long, ByVal lpIconName As String) As Long Public Declare PtrSafe Function CreateWindowEx Lib "user32" Alias "CreateWindowExA" (ByVal dwExStyle As Long, ByVal lpClassName As String, ByVal lpWindowName As String, ByVal dwStyle As Long, ByVal x As Long, ByVal y As Long, ByVal nWidth As Long, ByVal nHeight As Long, ByVal hWndParent As Long, ByVal hMenu As Long, ByVal hInstance As Long, lpParam As Any) As Long Public Declare PtrSafe Function CallWindowProc Lib "user32" Alias "CallWindowProcA" (ByVal lpPrevWndFunc As Long, ByVal hwnd As Long, ByVal Msg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Public Declare PtrSafe Function SetWindowLongPtr Lib "user32" Alias "SetWindowLongPtrA" (ByVal hwnd As Long, ByVal nIndex As Long, ByVal dwNewLong As Long) As Long Public Declare PtrSafe Function GetWindowLong Lib "user32" Alias "GetWindowLongA" (ByVal hwnd As Long, ByVal nIndex As Long) As Long Public Declare PtrSafe Function MessageBox Lib "user32" Alias "MessageBoxA" (ByVal hwnd As Long, ByVal lpText As String, ByVal lpCaption As String, ByVal wType As Long) As Long Public Declare PtrSafe Function PostQuitMessage Lib "user32" (ByVal nExitCode As Long) Public Declare PtrSafe Function GetOpenFileName Lib "comdlg32.dll" Alias "GetOpenFileNameA" (pOPENFILENAME As OPENFILENAME) As Long Public Declare PtrSafe Function GetSaveFileName Lib "comdlg32.dll" Alias "GetSaveFileNameA" (pOPENFILENAME As OPENFILENAME) As Long Public Declare PtrSafe Function GetLastError Lib "kernel32" () As Long Public Type OPENFILENAME lStructSize As Long hwndOwner As Long hInstance As Long lpstrFilter As String lpstrCustomFilter As String nMaxCustFilter As Long nFilterIndex As Long lpstrFile As String nMaxFile As Long lpstrFileTitle As String nMaxFileTitle As Long lpstrInitialDir As String lpstrTitle As String flags As Long nFileOffset As Integer nFileExtension As Integer lpstrDefExt As String lCustData As Long lpfnHook As Long lpTemplateName As String End Type Public Const OFN_OVERWRITEPROMPT = &H2 Public Const OFN_HIDEREADONLY = &H4 Public Const OFN_PATHMUSTEXIST = &H800 Public Const OFN_FILEMUSTEXIST = &H1000 Public Type WNDCLASS style As Long lpfnwndproc As LongPtr cbClsextra As Long cbWndExtra2 As Long hInstance As LongPtr hIcon As Long hCursor As Long hbrBackground As Long lpszMenuName As String lpszClassName As String End Type Public Type POINTAPI x As Long y As Long End Type Public Type Msg hwnd As Long message As Long wParam As Long lParam As Long time As Long pt As POINTAPI End Type Public Const CS_VREDRAW = &H1 Public Const CS_HREDRAW = &H2 Public Const CW_USEDEFAULT = &H80000000 Public Const ES_MULTILINE = &H4& Public Const WS_BORDER = &H800000 Public Const WS_CHILD = &H40000000 Public Const WS_OVERLAPPED = &H0& Public Const WS_CAPTION = &HC00000 ' WS_BORDER Or WS_DLGFRAME Public Const WS_SYSMENU = &H80000 Public Const WS_THICKFRAME = &H40000 Public Const WS_MINIMIZEBOX = &H20000 Public Const WS_MAXIMIZEBOX = &H10000 Public Const WS_OVERLAPPEDWINDOW = (WS_OVERLAPPED Or WS_CAPTION Or WS_SYSMENU Or WS_THICKFRAME Or WS_MINIMIZEBOX Or WS_MAXIMIZEBOX) Public Const WS_EX_CLIENTEDGE = &H200& Public Const COLOR_WINDOW = 5 Public Const WM_DESTROY = &H2 Public Const WM_LBUTTONDOWN = &H201 Public Const WM_LBUTTONUP = &H202 Public Const IDC_ARROW = 32512& Public Const IDI_APPLICATION = 32512& Public Const GWL_WNDPROC = (-4) Public Const SW_SHOWNORMAL = 1 Public Const MB_OK = &H0& Public Const MB_ICONEXCLAMATION = &H30& Public Const gClassName = "MyClassName" Public Const gAppName = "My Window Caption" Public gButOldProc As Long Public gHwnd As Long, gButtonHwnd As Long, gEditHwnd As Long Public Sub Main() Dim wMsg As Msg ''Call procedure to register window classname. If false, then exit. If RegisterWindowClass = False Then Exit Sub ''Create window If CreateWindows Then ''Loop will exit when WM_QUIT is sent to the window. Do While GetMessage(wMsg, 0&, 0&, 0&) ''TranslateMessage takes keyboard messages and converts ''them to WM_CHAR for easier processing. Call TranslateMessage(wMsg) ''Dispatchmessage calls the default window procedure ''to process the window message. (WndProc) Call DispatchMessage(wMsg) Loop End If Call UnregisterClass(gClassName$, Application.hInstance) End Sub Public Function RegisterWindowClass() As Boolean Dim wc As WNDCLASS Dim a As Variant wc.style = CS_HREDRAW Or CS_VREDRAW wc.lpfnwndproc = GetAddress(AddressOf WndProc) ''Address in memory of default window procedure. wc.hInstance = Application.HinstancePtr wc.hIcon = LoadIcon(0&, IDI_APPLICATION) ''Default application icon wc.hCursor = LoadCursor(0&, IDC_ARROW) ''Default arrow wc.hbrBackground = COLOR_WINDOW ''Default a color for window. wc.lpszClassName = gClassName$ RegisterWindowClass = RegisterClass(wc) a = GetLastError Debug.Print RegisterWindowClass & "ERR" Debug.Print CStr(GetLastError()) End Function Public Function CreateWindows() As Boolean ''开始创建窗体 gHwnd& = CreateWindowEx(0&, gClassName$, gAppName$, WS_OVERLAPPEDWINDOW, CW_USEDEFAULT, CW_USEDEFAULT, 208, 150, 0&, 0&, App.hInstance, ByVal 0&) ''创建一个按钮 gButtonHwnd& = CreateWindowEx(0&, "Button", "Click Here", WS_CHILD, 58, 90, 85, 25, gHwnd&, 0&, App.hInstance, 0&) ''创建一个(WS_EX_CLIENTEDGE、ES_MULTILINE风格的TextBox gEditHwnd& = CreateWindowEx(WS_EX_CLIENTEDGE, "Edit", "This is the edit control." & vbCrLf & "As you can see, it's multiline.", WS_CHILD Or ES_MULTILINE, 0&, 0&, 200, 80, gHwnd&, 0&, App.hInstance, 0&) Call ShowWindow(gHwnd&, SW_SHOWNORMAL) Call ShowWindow(gButtonHwnd&, SW_SHOWNORMAL) Call ShowWindow(gEditHwnd&, SW_SHOWNORMAL) gButOldProc& = GetWindowLong(gButtonHwnd&, GWL_WNDPROC) ''Set default window procedure of button to ButtonWndProc. Different ''settings of windows is listed in the MSDN Library. We are using GWL_WNDPROC ''to set the address of the window procedure. Call SetWindowLongPtr(gButtonHwnd&, GWL_WNDPROC, GetAddress(AddressOf ButtonWndProc)) CreateWindows = (gHwnd& <> 0) End Function '窗体运行的主函数,在注册这个窗体时已经指定的 Public Function WndProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Dim strTemp As String Select Case uMsg& Case WM_DESTROY: ''Since DefWindowProc doesn't automatically call ''PostQuitMessage (WM_QUIT). We need to do it ourselves. ''You can use DestroyWindow to get rid of the window manually. Call PostQuitMessage(0&) End Select ''Let windows call the default window procedure since we're done. WndProc = DefWindowProc(hwnd&, uMsg&, wParam&, lParam&) End Function Public Function ButtonWndProc(ByVal hwnd As Long, ByVal uMsg As Long, ByVal wParam As Long, ByVal lParam As Long) As Long Select Case uMsg& Case WM_LBUTTONUP: Call MessageBox(gHwnd&, "You clicked the button!", App.Title, MB_OK Or MB_ICONEXCLAMATION) End Select ButtonWndProc = CallWindowProc(gButOldProc&, hwnd&, uMsg&, wParam&, lParam&) End Function Public Function GetAddress(ByVal lngAddr As LongPtr) As LongPtr GetAddress = lngAddr End Function ```
Excel vba 定义打印机属性
用vba 直接去定义打印机属性 比如尺寸双面打印之类的 不知是否需要打印机提供vba 接口
excel vba筛选触发事件
Excel筛选会触发什么事件,我想在工作表筛选时调用宏做一些东西。
Word VBA中窗体如何生成EXE 可执行程序
Word VBA中制作了一个窗体向Word中添加文字,这个窗体能生成EXE文件吗,怎么操作呢?
VBA 用循环法对数值赋值不成功,如何解决?
【问题背景】 近期每天要远程打卡,每家公司打卡的数据会导出1张表,工作簿名为“A公司”,sheet1为当天已打卡名单。 要求根据原始的汇总名单(已在此表中)找出每家公司没打卡的人员。在工作簿名为“A公司”新建表格,然后把该公司要打卡所有员工信息贴进去,如未在sheet1中找到这个公司要打卡的人姓名,则I列表示N.A 【逻辑】 遍历文件夹中名称不等于自身的表格。 总名单表格为arr 新建的表格为arrnew ,基于公司名称相等。 【问题】 在用循环法给给arrnew数组赋值时候, newarr(i,j)=arr(k,j) arr(k,j)有数值,但arrnew=0,实在搞不懂为什么是0,然后即时窗口显示false 被这类问题困扰许久了,烦请各位高手帮忙看看,感激不尽~~~ 注:数据中敏感信息已处理 (问题代码处) ![图片说明](https://img-ask.csdn.net/upload/202002/11/1581387534_879131.png) 原始的表格 ![图片说明](https://img-ask.csdn.net/upload/202002/11/1581388570_126554.png) 要求跑完代码显示的样子 ![图片说明](https://img-ask.csdn.net/upload/202002/11/1581388582_840285.png) 代码如下 ``` Option Explicit Sub text() Dim sFName As String Dim sFType As String Dim sPath As String Dim stra As String '筛选公司 Dim stra1 '筛选公司 Dim wb Dim rng Dim arr() Dim newarr(1 To 3000, 1 To 3000) Dim k As Integer Dim i As Integer, j As Integer arr = Range("A1:I3000") stra = "上海环境研究中心有限公司->环境中心-总经理办公室" stra1 = Left(stra, InStr(stra, "-") - 1) sFName = Dir("ThisWorkbook.Path" & "*.xlsx") Application.ScreenUpdating = False Application.DisplayAlerts = False Do While sFName <> "" If sFName <> ThisWorkbook.Name Then Workbooks.Open (sFName) ActiveWorkbook.Sheet (1) End If i = 1 j = 1 For k = 1 To 3000 For j = 1 To 8 k = 1 If arr(k, 9) = stra1 Then newarr(i, j) = arr(k, j) End If Next j i = i + 1 Next k Debug.Print "newarr(i,j)" = newarr(i, j) Sheets.Add After:=ActiveSheet ActiveSheet.Name = "result" Sheets("result").Select Range("a1").Resize(2000, 8) = newarr MsgBox "finish" sFName = Dir Loop Application.ScreenUpdating = True Application.DisplayAlerts = True End Sub ```
excel vba编程 不懂这代码的意思,求解
ActiveCell.FormulaR1C1 = "=INDIRECT(""A""&INT(RAND()*R[1]C[7]+3),TRUE)" Range("K2").Select ActiveCell.FormulaR1C1 = "" Range("K2").Select ActiveCell.FormulaR1C1 = "=COUNTIF(R[1]C[-10]:R[98]C[-10],""<>"")" Range("D1:J14").Select 求解这代码是什么意思
Excel VBA如何取消关闭时的工程密码输入框?
我用做了一个Excel Vba小程序,程序的工程属性的查看、代码的查看都加密了。如下图。 ![图片说明](https://img-ask.csdn.net/upload/201901/29/1548733783_872377.jpg) 设置有关闭工作簿时的事件,本来一直关闭都是直接关闭的,相安无事,但是最近每次关闭时需要输入vba工程的密码,不输入密码的话则需要取消N次才能关闭。 ![图片说明](https://img-ask.csdn.net/upload/201901/29/1548734080_61426.jpg) 我调试过程序,是在运行完工作簿事件所有代码后产生的,和代码的关系不大。 有的电脑上无提示,而有的电脑上有提示。 请问该问题如何解决呢?
在excel里用vba代码控制鼠标,用到mouseeventf_absolute win10电脑就没反应了,win7是可以的,怎么回事呢
在excel里用vba代码控制鼠标,用到mouseeventf_absolute win10电脑就没反应了,win7是可以的,怎么回事呢 mouseevent_move可以用,但是坐标算不准呢,屏幕是1920x1080 但鼠标从左上到右下相对座标也就变化了1180/680左右,这个相对座标的值怎么算呢
VBA可以连接mongodb么?
Excel VBA宏想连接到mongodb,并对其数据库进行查询并显示到excel,有这样的需求。现在不会连接数据库,ADODB.Connection.ConnectionString=?,应该如何填写?
vc++如何访问excel中的vba程序
使用vs2010的ole组件编写应用程序,访问到包含vba的excel文件,如何才能触发vba程序. 现在我已经可以访问excel文件,操作vba的接口是book.get__VBProject()吗?_ _目前在这里会报错_
请教如何用Excel VBA写宏,ODBA的方式连接Oracle,下载Oracle里面的数据
RT,以下是原先用AS400的时候取数据用的代码,换成Oracle之后在链接信息里面需要怎么设置呢? With ActiveSheet.QueryTables.Add(Connection:=Array(Array( _ "ODBC;DRIVER={Client Access ODBC Driver (32-bit)};SYSTEM=" & HostName & ";CMT=0;DBQ=" & DBQName & ";NAM=0;DFT=5;DSP=1;TFT=0;TSP=0;DEC=0;XDYNAMIC=1;REC" _ ), Array( _ "BLOCK=2;BLOCKSIZE=32;SCROLLABLE=0;TRANSLATE=0;LAZYCLOSE=1;LIBVIEW=0;REMARKS=0;CONNTYPE=0;SORTTYPE=0;PREFETCH=0;DFTPKGLIB=QGPL;L" _ ), Array( _ "ANGUAGEID=ENU;SORTWEIGHT=0;SSL=2;SIGNON=3;MAXFIELDLEN=32;COMPRESSION=0;ALLOWUNSCHAR=0;SEACHPATTERN=1;MGDSN=0;" _ )), Destination:=Cells(1, 1)) .Sql = Array(sqlstring) .FieldNames = True .RefreshStyle = xlOverwriteCells .RowNumbers = False .FillAdjacentFormulas = False .RefreshOnFileOpen = False .HasAutoFormat = True .BackgroundQuery = True .TablesOnlyFromHTML = True .Refresh BackgroundQuery:=False .SavePassword = True .SaveData = True End With 网上找到的一些 With ActiveSheet.QueryTables.Add("ODBC;DRIVER={Microsoft ODBC for Oracle};UID=jfalekaeg;PWD=123456;SERVER=iagent;",ActiveCell) .CommandText = SQL语句 .Refresh BackgroundQuery:=False End With 据说是可以的但是在我机器上就不行,怀疑是不是ODBC设置有问题。请有过经验的以及会的不吝赐教。
VBA中怎么操作正在占用的excel
VBA复制多个Excel的内容,然而如果某个Excel打开,则无法操作,怎样解决这样的问题,谢谢
130 个相见恨晚的超实用网站,一次性分享出来
文末没有公众号,只求 点赞 + 关注 搞学习 知乎:www.zhihu.com 大学资源网:http://www.dxzy163.com/ 简答题:http://www.jiandati.com/ 网易公开课:https://open.163.com/ted/ 网易云课堂:https://study.163.com/ 中国大学MOOC:www.icourse163.org 网易云课堂:stu
终于明白阿里百度这样的大公司,为什么面试经常拿ThreadLocal考验求职者了
点击上面↑「爱开发」关注我们每晚10点,捕获技术思考和创业资源洞察什么是ThreadLocalThreadLocal是一个本地线程副本变量工具类,各个线程都拥有一份线程私有的数
win10系统安装教程(U盘PE+UEFI安装)
一、准备工作 u盘,电脑一台,win10原版镜像(msdn官网) 二、下载wepe工具箱  极力推荐微pe(微pe官方下载) 下载64位的win10 pe,使用工具箱制作启动U盘打开软件,   选择安装到U盘(按照操作无需更改) 三、重启进入pe系统   1、关机后,将U盘插入电脑 2、按下电源后,按住F12进入启动项选择(技嘉主板是F12)     选择需要启
程序员必须掌握的核心算法有哪些?
由于我之前一直强调数据结构以及算法学习的重要性,所以就有一些读者经常问我,数据结构与算法应该要学习到哪个程度呢?,说实话,这个问题我不知道要怎么回答你,主要取决于你想学习到哪些程度,不过针对这个问题,我稍微总结一下我学过的算法知识点,以及我觉得值得学习的算法。这些算法与数据结构的学习大多数是零散的,并没有一本把他们全部覆盖的书籍。下面是我觉得值得学习的一些算法以及数据结构,当然,我也会整理一些看过
大学四年自学走来,这些私藏的实用工具/学习网站我贡献出来了
大学四年,看课本是不可能一直看课本的了,对于学习,特别是自学,善于搜索网上的一些资源来辅助,还是非常有必要的,下面我就把这几年私藏的各种资源,网站贡献出来给你们。主要有:电子书搜索、实用工具、在线视频学习网站、非视频学习网站、软件下载、面试/求职必备网站。 注意:文中提到的所有资源,文末我都给你整理好了,你们只管拿去,如果觉得不错,转发、分享就是最大的支持了。 一、PDF搜索网站推荐 对于大部
C语言魔塔游戏
很早就很想写这个,今天终于写完了。 游戏截图: 编译环境: VS2017 游戏需要一些图片,如果有想要的或者对游戏有什么看法的可以加我的QQ 2985486630 讨论,如果暂时没有回应,可以在博客下方留言,到时候我会看到。 下面我来介绍一下游戏的主要功能和实现方式 首先是玩家的定义,使用结构体,这个名字是可以自己改变的 struct gamerole { char n
java源码分析 Arrays.asList()与Collections.unmodifiableList()
举个栗子 本章示例代码来自java编程思想——17.4.1未获支持的操作——Unsupported类。 import java.util.*; public class Unsupported { static void test(String msg, List&lt;String&gt; list) { System.out.println("--- " + msg
究竟你适不适合买Mac?
我清晰的记得,刚买的macbook pro回到家,开机后第一件事情,就是上了淘宝网,花了500元钱,找了一个上门维修电脑的师傅,上门给我装了一个windows系统。。。。。。 表砍我。。。 当时买mac的初衷,只是想要个固态硬盘的笔记本,用来运行一些复杂的扑克软件。而看了当时所有的SSD笔记本后,最终决定,还是买个好(xiong)看(da)的。 已经有好几个朋友问我mba怎么样了,所以今天尽量客观
Python爬虫爬取淘宝,京东商品信息
小编是一个理科生,不善长说一些废话。简单介绍下原理然后直接上代码。 使用的工具(Python+pycharm2019.3+selenium+xpath+chromedriver)其中要使用pycharm也可以私聊我selenium是一个框架可以通过pip下载 pip install selenium -i https://pypi.tuna.tsinghua.edu.cn/simple/ 
Java学习笔记(七十二)—— Cookie
概述 会话技术: 会话:一次会话中包含多次请求和响应 一次会话:浏览器第一次给服务器发送资源请求,会话建立,直到有一方断开为止 功能:在一次会话的范围内的多次请求间,共享数据 方式: 客户端会话技术:Cookie,把数据存储到客户端 服务器端会话技术:Session,把数据存储到服务器端 Cookie 概念:客户端会话技术,将数据存储到客户端 快速入门: 使用步骤: 创建C
程序员写了一个新手都写不出的低级bug,被骂惨了。
你知道的越多,你不知道的越多 点赞再看,养成习惯 本文 GitHub https://github.com/JavaFamily 已收录,有一线大厂面试点思维导图,也整理了很多我的文档,欢迎Star和完善,大家面试可以参照考点复习,希望我们一起有点东西。 前前言 为啥今天有个前前言呢? 因为你们的丙丙啊,昨天有牌面了哟,直接被微信官方推荐,知乎推荐,也就仅仅是还行吧(心里乐开花)
Java工作4年来应聘要16K最后没要,细节如下。。。
前奏: 今天2B哥和大家分享一位前几天面试的一位应聘者,工作4年26岁,统招本科。 以下就是他的简历和面试情况。 基本情况: 专业技能: 1、&nbsp;熟悉Sping了解SpringMVC、SpringBoot、Mybatis等框架、了解SpringCloud微服务 2、&nbsp;熟悉常用项目管理工具:SVN、GIT、MAVEN、Jenkins 3、&nbsp;熟悉Nginx、tomca
2020年,冯唐49岁:我给20、30岁IT职场年轻人的建议
点击“技术领导力”关注∆  每天早上8:30推送 作者| Mr.K   编辑| Emma 来源| 技术领导力(ID:jishulingdaoli) 前天的推文《冯唐:职场人35岁以后,方法论比经验重要》,收到了不少读者的反馈,觉得挺受启发。其实,冯唐写了不少关于职场方面的文章,都挺不错的。可惜大家只记住了“春风十里不如你”、“如何避免成为油腻腻的中年人”等不那么正经的文章。 本文整理了冯
程序员该看的几部电影
##1、骇客帝国(1999) 概念:在线/离线,递归,循环,矩阵等 剧情简介: 不久的将来,网络黑客尼奥对这个看似正常的现实世界产生了怀疑。 他结识了黑客崔妮蒂,并见到了黑客组织的首领墨菲斯。 墨菲斯告诉他,现实世界其实是由一个名叫“母体”的计算机人工智能系统控制,人们就像他们饲养的动物,没有自由和思想,而尼奥就是能够拯救人类的救世主。 可是,救赎之路从来都不会一帆风顺,到底哪里才是真实的世界?
蓝桥杯知识点汇总:基础知识和常用算法
文章目录JAVA基础语法:算法竞赛常用的JAVA API:基础算法待更: 此系列包含蓝桥杯所考察的绝大部分知识点,一共有基础语法,常用API,基础算法和数据结构,和往年真题四部分,虽然语言以JAVA为主,但算法部分是相通的,C++组的小伙伴也可以看哦。所有文章的链接都会在此公布,还有很多没有更新,会持续更新,如果大佬发现文章有错误的地方请指正,我会十分感谢。另外,有什么问题可私信我~ JAVA基础
作为一个程序员,CPU的这些硬核知识你必须会!
CPU对每个程序员来说,是个既熟悉又陌生的东西? 如果你只知道CPU是中央处理器的话,那可能对你并没有什么用,那么作为程序员的我们,必须要搞懂的就是CPU这家伙是如何运行的,尤其要搞懂它里面的寄存器是怎么一回事,因为这将让你从底层明白程序的运行机制。 随我一起,来好好认识下CPU这货吧 把CPU掰开来看 对于CPU来说,我们首先就要搞明白它是怎么回事,也就是它的内部构造,当然,CPU那么牛的一个东
破14亿,Python分析我国存在哪些人口危机!
2020年1月17日,国家统计局发布了2019年国民经济报告,报告中指出我国人口突破14亿。 猪哥的朋友圈被14亿人口刷屏,但是很多人并没有看到我国复杂的人口问题:老龄化、男女比例失衡、生育率下降、人口红利下降等。 今天我们就来分析一下我们国家的人口数据吧! 一、背景 1.人口突破14亿 2020年1月17日,国家统计局发布了 2019年国民经济报告 ,报告中指出:年末中国大陆总人口(包括31个
实现简单的轮播图(单张图片、多张图片)
前言 刚学js没多久,这篇博客就当做记录了,以后还会完善的,希望大佬们多多指点。ps:下面出现的都是直接闪动,没有滑动效果的轮播图。 单张图片的替换 原理 1.将几张图片叠在一起,通过改变"display:block"和"display:none"这两个属性实现替换。 (前提:在css中给所有图片加上display:none属性) 2.不用将图片叠在一起,将一个div当做"窗口",通过"of
强烈推荐10本程序员在家读的书
很遗憾,这个鼠年春节注定是刻骨铭心的,新型冠状病毒让每个人的神经都是紧绷的。那些处在武汉的白衣天使们,尤其值得我们的尊敬。而我们这些窝在家里的程序员,能不外出就不外出,就是对社会做出的最大的贡献。 有些读者私下问我,窝了几天,有点颓丧,能否推荐几本书在家里看看。我花了一天的时间,挑选了 10 本我最喜欢的书,你可以挑选感兴趣的来读一读。读书不仅可以平复恐惧的压力,还可以对未来充满希望,毕竟苦难终
Linux自学篇——linux命令英文全称及解释
man: Manual 意思是手册,可以用这个命令查询其他命令的用法。 pwd:Print working directory 显示当前目录 su:Swith user 切换用户,切换到root用户 cd:Change directory 切换目录 ls:List files 列出目录下的文件 ps:Process Status 进程状态 mk
Python实战:抓肺炎疫情实时数据,画2019-nCoV疫情地图
文章目录1. 前言2. 数据下载3. 数据处理4. 数据可视化 1. 前言 今天,群里白垩老师问如何用python画武汉肺炎疫情地图。白垩老师是研究海洋生态与地球生物的学者,国家重点实验室成员,于不惑之年学习python,实为我等学习楷模。先前我并没有关注武汉肺炎的具体数据,也没有画过类似的数据分布图。于是就拿了两个小时,专门研究了一下,遂成此文。 2月6日追记:本文发布后,腾讯的数据源多次变更u
智力题(程序员面试经典)
NO.1  有20瓶药丸,其中19瓶装有1克/粒的药丸,余下一瓶装有1.1克/粒的药丸。给你一台称重精准的天平,怎么找出比较重的那瓶药丸?天平只能用一次。 解法 有时候,严格的限制条件有可能反倒是解题的线索。在这个问题中,限制条件是天平只能用一次。 因为天平只能用一次,我们也得以知道一个有趣的事实:一次必须同时称很多药丸,其实更准确地说,是必须从19瓶拿出药丸进行称重。否则,如果跳过两瓶或更多瓶药
Java与Python学习通法(1)和(2)序言和编程语言发展史怎么学
大家好,我是 jacky 朱元禄,很高兴跟大家一起学习 《Java与Python学习通法系列》。 首先,说一下,我为什么要录这个课; 我们都已经知道Java 和 Python的视频教程和书籍,可以说是非常非常多了,那我录制本系列课的意义是什么呢? (1)课程特色一:我想告诉大家学习编程语言是有捷径的,这个捷径就是 理解技术背后的“哲学逻辑”,或者说是“人文逻辑”,相信你听完 jack
在家远程办公效率低?那你一定要收好这个「在家办公」神器!
相信大家都已经收到国务院延长春节假期的消息,接下来,在家远程办公可能将会持续一段时间。 但是问题来了。远程办公不是人在电脑前就当坐班了,相反,对于沟通效率,文件协作,以及信息安全都有着极高的要求。有着非常多的挑战,比如: 1在异地互相不见面的会议上,如何提高沟通效率? 2文件之间的来往反馈如何做到及时性?如何保证信息安全? 3如何规划安排每天工作,以及如何进行成果验收? ......
作为一个程序员,内存和磁盘的这些事情,你不得不知道啊!!!
截止目前,我已经分享了如下几篇文章: 一个程序在计算机中是如何运行的?超级干货!!! 作为一个程序员,CPU的这些硬核知识你必须会! 作为一个程序员,内存的这些硬核知识你必须懂! 这些知识可以说是我们之前都不太重视的基础知识,可能大家在上大学的时候都学习过了,但是嘞,当时由于老师讲解的没那么有趣,又加上这些知识本身就比较枯燥,所以嘞,大家当初几乎等于没学。 再说啦,学习这些,也看不出来有什么用啊!
阿里架构师花近十年时间整理出来的Java核心知识pdf(Java岗)
由于细节内容实在太多啦,所以只把部分知识点截图出来粗略的介绍,每个小节点里面都有更细化的内容! 整理了一份Java核心知识点。覆盖了JVM、锁、并发、Java反射、Spring原理、微服务、Zookeeper、数据库、数据结构等大量知识点。       欢迎大家加入java学习交流社区  点击加入   可获取文中文档       小编推荐:     
Python基础知识点梳理
python基础知识点梳理 摘要: 本文主要介绍一些平时经常会用到的python基础知识点,用于加深印象,也算是对于学习这门语言的一个总结与回顾。python的详细语法介绍可以查看官方编程手册,也有一些在线网站对python语法进行了比较全面的介绍,比如菜鸟教程: python3 教程|菜鸟教程 为了方便聚焦知识点,本文涉及的操作实例并不多,想学好一门语言关键还得自己多编码多实践。 python语
2020年2月全国程序员工资统计,平均工资13716元
趋势 2020年2月,中国大陆程序员平均工资13716元,比上个月增加。具体趋势如图: 各主要程序员城市工资变化 城市 北京,上海,深圳,杭州,广州四地的工资最高。 city 平均工资 最低工资 中位数 最高工资 招聘人数 百分比 北京 18098 3750 15000 45000 20529 9.53% 深圳 16903 5750 15000 37500 30941 14
Java坑人面试题系列: 包装类(中级难度)
Java Magazine上面有一个专门坑人的面试题系列: https://blogs.oracle.com/javamagazine/quiz-2。 这些问题的设计宗旨,主要是测试面试者对Java语言的了解程度,而不是为了用弯弯绕绕的手段把面试者搞蒙。 如果你看过往期的问题,就会发现每一个都不简单。 这些试题模拟了认证考试中的一些难题。 而 “中级(intermediate)” 和 “高级(ad
为什么说程序员做外包没前途?
之前做过不到3个月的外包,2020的第一天就被释放了,2019年还剩1天,我从外包公司离职了。我就谈谈我个人的看法吧。首先我们定义一下什么是有前途 稳定的工作环境 不错的收入 能够在项目中不断提升自己的技能(ps:非技术上的认知也算) 找下家的时候能找到一份工资更高的工作 如果你目前还年轻,但高不成低不就,只有外包offer,那请往下看。 外包公司你应该
相关热词 c#导入fbx c#中屏蔽键盘某个键 c#正态概率密度 c#和数据库登陆界面设计 c# 高斯消去法 c# codedom c#读取cad文件文本 c# 控制全局鼠标移动 c# temp 目录 bytes初始化 c#
立即提问