Sub DB_Row() Dim i, j As Integer Dim row1, row2 As Integer row1 = ' 对比第 3 行 row2 = ' 和第 4 行 For i = To For j = To If Cells(row1, i).Value = Cells(row2, j).Value Then If Cells(row2, j).Interior.ColorIndex <> Then Cells(row1, i).Interior.ColorIndex =…

最近由于Sino-2和北斗的关系,很多网友贴了表示卫星运行轨道的TLE数据.这里想对卫星轨道参数和TLE的格式做一个简单介绍.虽然实际上没有人直接读TLE数据,而都是借助软件来获得卫星轨道和位置信息,但是希望这些介绍可以对于理解卫星轨道的概念有所帮助.由于匆匆写成,可能有一些错误,如果看到还请指出. 前面关于轨道一部分写得较早,后来发现和杂志上关于我国反卫的一篇文章里的相应部分类似.估计都参考类似的资料,这个东西本身也是成熟的理论了.首先来看一下卫星轨道.太空中的卫星在地球引力等各种力的作用下做…

pandas-同时处理两行数据 假设数据集data如下所示: 如果我们想要将user_id 和 item_id两列进行对应元素相加的操作,该怎么办呢? 显然我们先定义一个加法函数,然后使用apply函数: 给个例子: def sum(x,y): return x+y def sum_cv(data): data['user_item']=data.apply(lambda row:sum(row['user_id'], row['item_id']),axis = 1) return data…

VBA(Visual Basic for Applications)是VB的一种宏语言.用来扩展应用程式的功能.特别是Microsoft Office软件. 转载请注明原文地址:http://blog.csdn.net/ts_dchs/article/details/50318345 1 使用原因 在处理传感器数据文件的时候.有些节点有丢包严重的现象.这样就会产生时间的累计误差. 所以须要依据包序号将之后的传感器数据填在合适的位置,也就是为丢包流出空行. 这样手动对照的方式非常不方便,所以想到用…

sub OutPut() Dim FileTitle, MyPath, MyFullName As String Application.ScreenUpdating = false '关闭表格公式的自动刷新 FileTitle = "待输出的文件名" Sheets.Add.Name = "OutData" '创建临时工作表 endline = sheet5.range("$A$65536").end(xlup).row '取得待输出的工作表的总…

1. 下载redgate的工具 https://www.red-gate.com/dynamic/products/sql-development/sql-compare/download 2. 输入必选部分进行处理 3. 下载完成之后进行安装. 安装过程简略 4. 安装完成之后使用工具进行 断网破解 工具名 Red-Gate.Multi.Keygen.RePT.exe 5. 打开SQL data compare 进行对比 新建项目, 以及选取server 进行对比  选择 database 6…

上周派到了个case, 是批量从Excel导出数据导Visio每个图形中. 花了些时间实现了这个功能. 原理如下: 打开Excel 新建/打开表单 指向所选择的表单 遍历所在列的所有数据 打开Visio 建立/打开Visio页面(Visio是和Excel一样, 需要建立指定页面.) 指向所选择的Visio页面. 打开diagram service 服务 遍历所有数据在新的图形中做文字. 代码如下: Sub Test11() Dim rowCount As Long Dim sourceSheet…

这里我用的python版本是Python 3.6.2(64位),php版本是PHP 7.0.12(64位),node版本是v6.11.0(64位),Go 1.8.3(64位),C# 基于.Net 4.0,lua 5.1.4 对比 python import time calNum = 100000000 def test(): sum = 0 for x in range(1, calNum + 1): sum += x return sum start = time.time() test()…

Option Explicit  上传数据Private Sub CommandButton1_Click() If MsgBox("请确认数据是否准确,是否确认上传?", vbCritical + 6 + 16, "温馨提示") = vbNo Then   Exit Sub End If '保存数据 Dim r, Atnum, rscount, i As Integer r = 6 Atnum = Sheet1.UsedRange.Rows.Count  If A…

一.       EXCEL 突出重复项 1.      选择对应的数据 EXCEL 里选择好数据 2.      选择条件格式 这样就完成了数据重复的突出,可以按条件筛选.选择自己想要的数据…