加载中…
个人资料
rainfarm
rainfarm
  • 博客等级:
  • 博客积分:0
  • 博客访问:102,759
  • 关注人气:9
  • 获赠金笔:0支
  • 赠出金笔:0支
  • 荣誉徽章:
访客
加载中…
好友
加载中…
评论
加载中…
留言
加载中…
分类
博文

传统的分班方法是按照分数从高到低12344321,不够随机,而网上都是不按分数完全随机的分班,随意度太大,无法实现平行分班。经过长时间的反复思索,以下两种方法可以实现按照分数从高到底随机分班,更加的公平合理。

方法1:利用公式直接实现.   

1.A列分数按从高到低排列,C2中输入公式=rand()并拖动填充形成一列随机数. 

2.在B2中输入公式=RANK(C2,INDIRECT('c'&CEILING(ROW(A1),4)-3+1&':'&'c'&CEILING(ROW(A1),4)+1))。拖动填充柄向下填充,即可实现每4行一组随机抽签数(如果是分n班,4改成n,3改成n-1)

方法2利用多列横向排序

1.A列分数按从高到低排列

2.如果分4班,就在E2单元格输入公式=rand(),填充柄向右拉3格,然后向下拉多行,形成4列随机数。(如果分n班,就构造n列随机数

阅读  ┆ 评论  ┆ 转载 ┆ 收藏 

工作中excel的朗读功能可以校验输入数值是否正确,非常方便,而有的系统阉割了语音功能。本文结合网上的经验和自己的反复实验,纠正了网上的一些错误,总结了比较简洁的方法

链接:https://pan.baidu.com/s/1_wCL1LFZLMwplmkGCGzGBA 提取码:1111

方法1:使用第三方语音引擎

1.首先下载TTSrepair.exe安装,该安装程序为第三方公司提供,反复测试并无病毒,安装后可以在控制面板中的硬件和声音中找到语音

2.安装上文中的girl_xiaokun.exe,这是捷通华声为金山词霸提供的XiaoKun女声中英文TTS语音包,安装后在控制面板中的硬件和声音中找到语音

Win7无法正常使用TTS语音的解决办法

3.到此Excel的语音朗读功能就可以使用了。如果需要微软的语音引擎接下里的步骤复杂一些。

方法2:使用微软语音引擎

1.同样需要TTSrepair.

阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
(2019-09-11 20:18)
标签:

it

办公

激活常用命令
office命令
阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
在http://msdn.itellyou.cn/网站上下载的是office2019是零售版的,转换为vol,将下列文本另存为bat文件,运行即可

@ECHO OFF&PUSHD %~DP0

setlocal EnableDelayedExpansion&color 3e & cd /d '%~dp0'
title office2019 retail转换vol版

%1 %2
mshta vbscript:createobject('shell.application').shellexecute('%~s0','goto :runas','','runas',1)(window.close)&goto :eof
:runas

if exist '%ProgramFiles%\Microsoft Office\Office16\ospp.vbs' cd /d '%ProgramFiles%\Microsoft Office\Office16'
if exist '%ProgramFiles(x86)%\Microsoft Office\Office16\ospp.vbs' cd /d '%ProgramFiles(x86)%\Microsoft Office\Office16'

:WH
cls
echo.
echo                         选择需要转化的office版本序号
echo.
echo ------------------------------------------------------------------------------
阅读  ┆ 评论  ┆ 转载 ┆ 收藏 

将以下内容复制粘贴到记事本,另存为bat文件,双击即可激活。原理,利用网络上的kms激活服务器激活。
@echo off
%1 %2
mshta vbscript:createobject('shell.application').shellexecute('%~s0','goto :runas','','runas',1)(window.close)&goto :eof
:runas
if exist '%ProgramFiles%\Microsoft Office\Office16\ospp.vbs' cd /d '%ProgramFiles%\Microsoft Office\Office16'
if exist '%ProgramFiles(x86)%\Microsoft Office\Office16\ospp.vbs' cd /d '%ProgramFiles(x86)%\Microsoft Office\Office16'
for /f %%x in ('dir /b ..\root\Licenses16\ProPlusVL_*.xrm-ms') do cscript ospp.vbs /inslic:'..\root\Licenses16\%%x' >nul
cscript //nologo ospp.vbs /inpkey:NMMKJ-6RK4F-KMJVX-8D9MJ-6MWKP
cscript //nologo ospp.vbs /s

阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
标签:

it

办公

引用:http://cxuesong.com/archives/471

前提,最新版的office2016中微软已经移除了公式编辑器3.0,在VOL版的office2016中还有。

笔者安装过mathtype卸载后,office插入对象,公式3.0,弹出安装界面,

1.Microsoft Word 无法开始运行打开此目标所需的应用程序。
2.这项功能出现了错误,而且已无法再正确运行。是否现在修复这项功能?

 

解决方法:

Windows Registry Editor Version 5.00
 
[HKEY_LOCAL_MACHINE\SOFTWARE\Classes\Wow6432Node\CLSID\{0002CE02-0000-0000-C000-000000000046}\LocalServer32]
@='C:\\PROGRA~1\\COMMON~1\\MICROS~1\\EQUATION\\EQNEDT32.EXE'

 

打开记事本,另存为.reg导入注册表解决。

 

注意,导入之前,请先确认 C:\PROGRA~1\COMMON~1\MICROS~1\EQUATION\EQNEDT32.EXE 是否存在。可能需要根据你计算机的状况进行一定调整。

 

阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
(2018-12-25 16:03)
标签:

it

办公

将以下内容复制粘贴到记事本,另存为bat文件,双击即可激活。原理,利用网络上的kms激活服务器激活。
@echo off
%1 %2
mshta vbscript:createobject('shell.application').shellexecute('%~s0','goto :runas','','runas',1)(window.close)&goto :eof
:runas
if exist '%ProgramFiles%\Microsoft Office\Office16\ospp.vbs' cd /d '%ProgramFiles%\Microsoft Office\Office16'
if exist '%ProgramFiles(x86)%\Microsoft Office\Office16\ospp.vbs' cd /d '%ProgramFiles(x86)%\Microsoft Office\Office16'
for /f %%x in ('dir /b ..\root\Licenses16\proplusvl*.xrm-ms') do cscript ospp.vbs /inslic:'..\root\Licenses16\%%x' >nul
cscript //nologo ospp.vbs /inpkey:XQNVK-8JYDB-WJ9W3-YJ8YR-WFG99
cscript //nologo ospp.vbs /sethst:kms.03k.org
cscript //nologo ospp.vbs /act
pause

阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
(2018-12-25 16:01)
标签:

it

办公

将以下内容复制粘贴到记事本,另存为bat文件,点击运行一下即可。原理利用网上的kms激活服务器激活
@echo off
%1 %2
mshta vbscript:createobject('shell.application').shellexecute('%~s0','goto :runas','','runas',1)(window.close)&goto :eof
:runas
if exist '%ProgramFiles%\Microsoft Office\Office15\ospp.vbs' cd /d '%ProgramFiles%\Microsoft Office\Office15'
if exist '%ProgramFiles(x86)%\
阅读  ┆ 评论  ┆ 转载 ┆ 收藏 

将A3替换为身份证号所在地址,复制下列公式,拖动填充即可。正确显示正确,错误显示错误。当然数据验证也可以。

公式1:

=MID('10X98765432',MOD(SUMPRODUCT(MID(A3,ROW(INDIRECT('1:17')),1)*{7;9;10;5;8;4;2;1;6;3;7;9;10;5;8;4;2}),11)+1,1)=RIGHT(A3)

或者公式2:

=MID('10X98765432',MOD(SUMPRODUCT(MID(A3,ROW(INDIRECT('1:17')),1)*2^(18-ROW(INDIRECT('1:17')))),11)+1,1)=RIGHT(A3)

 

 

阅读  ┆ 评论  ┆ 转载 ┆ 收藏 

新买笔记本自带的家庭和学生版的

阅读  ┆ 评论  ┆ 转载 ┆ 收藏 
  

新浪BLOG意见反馈留言板 电话:4000520066 提示音后按1键(按当地市话标准计费) 欢迎批评指正

新浪简介 | About Sina | 广告服务 | 联系我们 | 招聘信息 | 网站律师 | SINA English | 会员注册 | 产品答疑

新浪公司 版权所有